Ignore:
Timestamp:
2018-06-12T14:12:51+02:00 (3 years ago)
Author:
jchanut
Message:

Reorganize Agrif update in a single subroutine ; use adjoint stepping for initial state update

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/nemogcm.F90

    r9656 r9780  
    8989   USE xios           ! xIOserver 
    9090#endif 
     91#if defined key_agrif 
     92   USE agrif_all_update   ! Master Agrif update 
     93#endif 
    9194 
    9295   IMPLICIT NONE 
     
    160163      !                                               !==  AGRIF time-stepping  ==! 
    161164      CALL Agrif_Regrid() 
     165      ! 
     166      ! Recursive update from highest nested level to lowest: 
     167      CALL Agrif_step_child_adj(Agrif_Update_All) 
    162168      ! 
    163169      DO WHILE( istp <= nitend .AND. nstop == 0 ) 
Note: See TracChangeset for help on using the changeset viewer.