- Timestamp:
- 2020-07-02T17:33:41+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DOM/domain.F90
r13176 r13229 187 187 ENDIF 188 188 ! 189 189 190 IF( lk_c1d ) CALL cor_c1d ! 1D configuration: Coriolis set at T-point 190 191 ! 192 193 #if defined key_agrif 194 IF( .NOT. Agrif_Root() ) CALL Agrif_Init_Domain( Kbb, Kmm, Kaa ) 195 #endif 191 196 IF( ln_meshmask ) CALL dom_wri ! Create a domain file 192 197 IF( .NOT.ln_rstart ) CALL dom_ctl ! Domain control … … 296 301 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist' ) 297 302 IF(lwm) WRITE ( numond, namrun ) 303 304 #if defined key_agrif 305 IF( .NOT. Agrif_Root() ) THEN 306 nn_it000 = (Agrif_Parent(nn_it000)-1)*Agrif_IRhot() + 1 307 nn_itend = Agrif_Parent(nn_itend) *Agrif_IRhot() 308 ENDIF 309 #endif 298 310 ! 299 311 IF(lwp) THEN ! control print … … 388 400 IF(lwm) WRITE( numond, namdom ) 389 401 ! 402 #if defined key_agrif 403 IF( .NOT. Agrif_Root() ) THEN 404 rn_Dt = Agrif_Parent(rn_Dt) / Agrif_Rhot() 405 ENDIF 406 #endif 407 ! 390 408 IF(lwp) THEN 391 409 WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.