Ignore:
Timestamp:
Aug 21, 2017 2:59:59 PM (4 years ago)
Author:
kanani
Message:

Vertical nesting implemented (SadiqHuq?)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/timestep.f90

    r2258 r2365  
    2525! -----------------
    2626! $Id$
     27! Vertical grid nesting: Sync fine and coarse grid timestep (SadiqHuq)
     28!
     29! 2258 2017-06-08 07:55:13Z suehring
    2730! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
    2831!
     
    137140        ONLY:  flow_statistics_called, hom, u_max, u_max_ijk, v_max, v_max_ijk,&
    138141               w_max, w_max_ijk
     142
     143    USE vertical_nesting_mod,                                                  &
     144        ONLY:  vnested, vnest_timestep_sync
    139145
    140146    IMPLICIT NONE
     
    376382    ENDIF
    377383
     384!
     385!-- Vertical nesting: coarse and fine grid timestep has to be identical   
     386    IF ( vnested )  CALL vnest_timestep_sync
     387
    378388    CALL cpu_log( log_point(12), 'calculate_timestep', 'stop' )
    379389
Note: See TracChangeset for help on using the changeset viewer.