- Timestamp:
- 2020-06-03T16:26:23+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/mppini.F90
r12414 r13024 99 99 CALL ctl_stop( 'mpp_init: equality jpni = jpnj = jpnij = 1 is not satisfied', & 100 100 & 'the domain is lay out for distributed memory computing!' ) 101 102 #if defined key_agrif 103 IF (.not.agrif_root()) THEN 104 CALL agrif_nemo_init 105 ENDIF 106 107 IF( .NOT. Agrif_Root() ) THEN ! AGRIF children: specific setting (cf. agrif_user.F90) 108 print *,'nbcellsx = ',nbcellsx,nbghostcells_x 109 print *,'nbcellsy = ',nbcellsy,nbghostcells_y_s,nbghostcells_y_n 110 IF( jpiglo /= nbcellsx + 2 + 2*nbghostcells_x ) THEN 111 IF(lwp) THEN 112 WRITE(numout,*) 113 WRITE(numout,*) 'jpiglo should be: ', nbcellsx + 2 + 2*nbghostcells_x 114 ENDIF 115 CALL ctl_stop( 'STOP', 'mpp_init: Agrif children requires jpiglo == nbcellsx + 2 + 2*nbghostcells_x' ) 116 ENDIF 117 IF( jpjglo /= nbcellsy + 2 + nbghostcells_y_s + nbghostcells_y_n ) THEN 118 IF(lwp) THEN 119 WRITE(numout,*) 120 WRITE(numout,*) 'jpjglo shoud be: ', nbcellsy + 2 + nbghostcells_y_s + nbghostcells_y_n 121 ENDIF 122 CALL ctl_stop( 'STOP', & 123 'mpp_init: Agrif children requires jpjglo == nbcellsy + 2 + nbghostcells_y_s + nbghostcells_y_n' ) 124 ENDIF 125 IF( ln_use_jattr ) CALL ctl_stop( 'STOP', 'mpp_init:Agrif children requires ln_use_jattr = .false. ' ) 126 ENDIF 127 #endif 101 128 ! 102 129 END SUBROUTINE mpp_init … … 274 301 IF(lwp) THEN 275 302 WRITE(numout,*) 276 WRITE(numout,*) 'jpiglo shou d be: ', nbcellsx + 2 + 2*nbghostcells303 WRITE(numout,*) 'jpiglo should be: ', nbcellsx + 2 + 2*nbghostcells 277 304 ENDIF 278 305 CALL ctl_stop( 'STOP', 'mpp_init: Agrif children requires jpiglo == nbcellsx + 2 + 2*nbghostcells' )
Note: See TracChangeset
for help on using the changeset viewer.