Changeset 15431
- Timestamp:
- 2021-10-21T19:05:13+02:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/tools_r4.0-HEAD_dev_MEs/DOMAINcfg/src/domain.f90
r15174 r15431 474 474 CALL iom_rstput( 0, 0, inum, 'e3vw_0' , e3vw_0 , ktype = jp_r8 ) 475 475 ! 476 IF(.NOT.ln_e3_dep ) THEN ! depth (t- & w-points) 476 ! DB we force to write always gdep* 477 !IF(.NOT.ln_e3_dep ) THEN ! depth (t- & w-points) 477 478 CALL iom_rstput( 0, 0, inum, 'gdept_1d', gdept_1d, ktype = jp_r8 ) ! required only with 478 479 CALL iom_rstput( 0, 0, inum, 'gdepw_1d', gdepw_1d, ktype = jp_r8 ) ! the old e3. definition 479 480 CALL iom_rstput( 0, 0, inum, 'gdept_0' , gdept_0 , ktype = jp_r8 ) 480 481 CALL iom_rstput( 0, 0, inum, 'gdepw_0' , gdepw_0 , ktype = jp_r8 ) 481 ENDIF482 !ENDIF 482 483 ! 483 484 ! !== ocean top and bottom level ==!
Note: See TracChangeset
for help on using the changeset viewer.