Changeset 13109 for utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mppini.F90

Timestamp:

2020-06-16T12:07:28+02:00 (4 years ago)

Author:

rblod

Message:

ticket #2129 : major corrections in domcfg

File:

• utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mppini.F90 (modified) (1 diff)

utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mppini.F90

@@ -278 +278 @@
 #if defined key_agrif
       IF( .NOT. Agrif_Root() ) THEN       ! AGRIF children: specific setting (cf. agrif_user.F90)
-         IF( jpiglo /= nbcellsx + 2 + 2*nbghostcells ) THEN
+         CALL agrif_nemo_init
+         IF( jpiglo /= nbcellsx + 2 + 2*nbghostcells_x ) THEN
             IF(lwp) THEN
                WRITE(numout,*)
-               WRITE(numout,*) 'jpiglo should be: ', nbcellsx + 2 + 2*nbghostcells
+               WRITE(numout,*) 'jpiglo should be: ', nbcellsx + 2 + 2*nbghostcells_x
             ENDIF        
             CALL ctl_stop( 'STOP', 'mpp_init: Agrif children requires jpiglo == nbcellsx + 2 + 2*nbghostcells' )
          ENDIF   
-         IF( jpjglo /= nbcellsy + 2 + 2*nbghostcells ) THEN
+         IF( jpjglo /= nbcellsy + 2 + nbghostcells_y_s + nbghostcells_y_n ) THEN
             IF(lwp) THEN
                WRITE(numout,*)
-               WRITE(numout,*) 'jpjglo shoud be: ', nbcellsy + 2 + 2*nbghostcells
+               WRITE(numout,*) 'jpjglo shoud be: ', nbcellsy + 2 + nbghostcells_y_s + nbghostcells_y_n
             ENDIF        
-            CALL ctl_stop( 'STOP', 'mpp_init: Agrif children requires jpjglo == nbcellsy + 2 + 2*nbghostcells' )
+            CALL ctl_stop( 'STOP', &
+               'mpp_init: Agrif children requires jpjglo == nbcellsy + 2 + nbghostcells_y_s + nbghostcells_y_n' )
          ENDIF   
          IF( ln_use_jattr )   CALL ctl_stop( 'STOP', 'mpp_init:Agrif children requires ln_use_jattr = .false. ' )