New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5531 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2015-07-02T15:49:16+02:00 (9 years ago)
Author:
jchanut
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r5407 r5531  
    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.