Changeset 9781


Ignore:
Timestamp:
2018-06-12T15:41:29+02:00 (2 years ago)
Author:
jchanut
Message:

Reorganize Agrif update: make it compliant with SAS

Location:
NEMO/trunk/src/SAS
Files:
2 edited

Legend:

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

    r9611 r9781  
    4040   USE xios           ! xIOserver 
    4141#endif 
     42#if defined key_agrif && defined key_si3 
     43   USE agrif_ice_update ! ice update 
     44#endif 
    4245 
    4346   IMPLICIT NONE 
     
    103106      !                                               !==  AGRIF time-stepping  ==! 
    104107      CALL Agrif_Regrid() 
     108      ! 
     109#if defined key_si3 
     110      ! Recursive update from highest nested level to lowest: 
     111      CALL Agrif_step_child_adj(Agrif_update_ice) 
     112#endif 
    105113      ! 
    106114      DO WHILE( istp <= nitend .AND. nstop == 0 ) 
  • NEMO/trunk/src/SAS/step.F90

    r9610 r9781  
    110110      IF( Agrif_NbStepint() == 0 ) THEN               ! AGRIF Update from zoom N to zoom 1 then to Parent  
    111111#if defined key_si3 
    112                              CALL Agrif_Update_ice( kstp )   ! update sea-ice 
     112                             CALL Agrif_Update_ice( )   ! update sea-ice 
    113113#endif 
    114114      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.