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/OCE/step.F90

    r12276 r12651  
    8181      !! --------------------------------------------------------------------- 
    8282#if defined key_agrif 
     83      IF( nstop > 0 ) return   ! avoid to go further if an error was detected during previous time step  
    8384      kstp = nit000 + Agrif_Nb_Step() 
    8485      IF( lk_agrif_debug ) THEN 
     
    280281#if defined key_agrif 
    281282      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    282       ! AGRIF 
     283      ! AGRIF recursive integration 
    283284      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<       
    284285                         CALL Agrif_Integrate_ChildGrids( stp )  ! allows to finish all the Child Grids before updating 
    285  
    286                          IF( Agrif_NbStepint() == 0 ) CALL Agrif_update_all( ) ! Update all components 
    287 #endif 
    288       IF( ln_diaobs  )   CALL dia_obs      ( kstp )      ! obs-minus-model (assimilation) diagnostics (call after dynamics update) 
    289  
     286#endif 
    290287      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    291288      ! Control 
     
    293290                         CALL stp_ctl      ( kstp, indic ) 
    294291                          
     292#if defined key_agrif 
     293      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
     294      ! AGRIF update 
     295      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<       
     296      IF( Agrif_NbStepint() == 0 .AND. nstop == 0 ) CALL Agrif_update_all( ) ! Update all components 
     297#endif 
     298 
     299      IF( ln_diaobs  )   CALL dia_obs      ( kstp )      ! obs-minus-model (assimilation) diagnostics (call after dynamics update) 
     300 
     301      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
     302      ! File manipulation at the end of the first time step 
     303      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                          
    295304      IF( kstp == nit000 ) THEN                          ! 1st time step only 
    296305                                        CALL iom_close( numror )   ! close input  ocean restart file 
     
    306315      ! 
    307316#if defined key_iomput 
     317      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
     318      ! Finalize contextes if end of simulation or error detected 
     319      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                          
    308320      IF( kstp == nitend .OR. indic < 0 ) THEN  
    309321                      CALL iom_context_finalize(      cxios_context          ) ! needed for XIOS+AGRIF 
    310                       IF(lrxios) CALL iom_context_finalize(      crxios_context          ) 
     322         IF( lrxios ) CALL iom_context_finalize(      crxios_context         ) 
    311323         IF( ln_crs ) CALL iom_context_finalize( trim(cxios_context)//"_crs" ) !  
    312324      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.