Ignore:
Timestamp:
2020-06-16T12:07:28+02:00 (4 months ago)
Author:
rblod
Message:

ticket #2129 : major corrections in domcfg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mppini.F90

    r13056 r13109  
    278278#if defined key_agrif 
    279279      IF( .NOT. Agrif_Root() ) THEN       ! AGRIF children: specific setting (cf. agrif_user.F90) 
    280          IF( jpiglo /= nbcellsx + 2 + 2*nbghostcells ) THEN 
     280         CALL agrif_nemo_init 
     281         IF( jpiglo /= nbcellsx + 2 + 2*nbghostcells_x ) THEN 
    281282            IF(lwp) THEN 
    282283               WRITE(numout,*) 
    283                WRITE(numout,*) 'jpiglo should be: ', nbcellsx + 2 + 2*nbghostcells 
     284               WRITE(numout,*) 'jpiglo should be: ', nbcellsx + 2 + 2*nbghostcells_x 
    284285            ENDIF         
    285286            CALL ctl_stop( 'STOP', 'mpp_init: Agrif children requires jpiglo == nbcellsx + 2 + 2*nbghostcells' ) 
    286287         ENDIF    
    287          IF( jpjglo /= nbcellsy + 2 + 2*nbghostcells ) THEN 
     288         IF( jpjglo /= nbcellsy + 2 + nbghostcells_y_s + nbghostcells_y_n ) THEN 
    288289            IF(lwp) THEN 
    289290               WRITE(numout,*) 
    290                WRITE(numout,*) 'jpjglo shoud be: ', nbcellsy + 2 + 2*nbghostcells 
     291               WRITE(numout,*) 'jpjglo shoud be: ', nbcellsy + 2 + nbghostcells_y_s + nbghostcells_y_n 
    291292            ENDIF         
    292             CALL ctl_stop( 'STOP', 'mpp_init: Agrif children requires jpjglo == nbcellsy + 2 + 2*nbghostcells' ) 
     293            CALL ctl_stop( 'STOP', & 
     294               'mpp_init: Agrif children requires jpjglo == nbcellsy + 2 + nbghostcells_y_s + nbghostcells_y_n' ) 
    293295         ENDIF    
    294296         IF( ln_use_jattr )   CALL ctl_stop( 'STOP', 'mpp_init:Agrif children requires ln_use_jattr = .false. ' ) 
Note: See TracChangeset for help on using the changeset viewer.