Ignore:
Timestamp:
2020-04-03T09:51:14+02:00 (13 months ago)
Author:
smasson
Message:

r4.0-HEAD: nstop>0 on a child grid is ok see #2433

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/SAS/step.F90

    r11536 r12651  
    7474 
    7575#if defined key_agrif 
     76      IF( nstop > 0 ) return   ! avoid to go further if an error was detected during previous time step  
    7677      kstp = nit000 + Agrif_Nb_Step() 
    7778      IF ( lk_agrif_debug ) THEN 
     
    104105#if defined key_agrif 
    105106      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    106       ! AGRIF 
     107      ! AGRIF recursive integration 
    107108      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<       
    108109                             CALL Agrif_Integrate_ChildGrids( stp )   
    109  
    110       IF( Agrif_NbStepint() == 0 ) THEN               ! AGRIF Update from zoom N to zoom 1 then to Parent  
    111 #if defined key_si3 
    112                              CALL Agrif_Update_ice( )   ! update sea-ice 
    113 #endif 
    114       ENDIF 
    115 #endif 
    116                               
     110#endif                  
    117111      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    118112      ! Control 
     
    123117                             CALL dia_wri_state( 'output.abort' ) 
    124118      ENDIF 
    125       IF( kstp == nit000   ) CALL iom_close( numror )     ! close input  ocean restart file 
     119#if defined key_agrif 
     120      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
     121      ! AGRIF update 
     122      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<       
     123      IF( Agrif_NbStepint() == 0 .AND. nstop == 0 ) THEN                       ! AGRIF Update from zoom N to zoom 1 then to Parent  
     124#if defined key_si3 
     125                             CALL Agrif_Update_ice( )   ! update sea-ice 
     126#endif 
     127      ENDIF 
     128#endif 
     129      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
     130      ! File manipulation at the end of the first time step 
     131      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                          
     132      IF( kstp == nit000   ) CALL iom_close( numror )                          ! close input  ocean restart file 
    126133       
    127134      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Note: See TracChangeset for help on using the changeset viewer.