Changeset 5536


Ignore:
Timestamp:
2015-07-02T16:04:36+02:00 (5 years ago)
Author:
jchanut
Message:

AGRIF: Fixes bad code exit if no child grid, ticket #1556

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r5407 r5536  
    187187      ! 
    188188#if defined key_agrif 
    189       CALL Agrif_ParentGrid_To_ChildGrid() 
    190       IF( lk_diaobs ) CALL dia_obs_wri 
    191       IF( nn_timing == 1 )   CALL timing_finalize 
    192       CALL Agrif_ChildGrid_To_ParentGrid() 
     189      IF ( Agrif_Level() < Agrif_MaxLevel() ) THEN  
     190         CALL Agrif_ParentGrid_To_ChildGrid() 
     191         IF( lk_diaobs ) CALL dia_obs_wri 
     192         IF( nn_timing == 1 )   CALL timing_finalize 
     193         CALL Agrif_ChildGrid_To_ParentGrid() 
     194      ENDIF 
    193195#endif 
    194196      IF( nn_timing == 1 )   CALL timing_finalize 
Note: See TracChangeset for help on using the changeset viewer.