- Timestamp:
- 2020-03-11T10:26:18+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_biharmonic_GM/src/OCE/DIA/diaar5.F90
r11715 r12532 42 42 !!---------------------------------------------------------------------- 43 43 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 44 !! $Id $44 !! $Id: diaar5.F90 10425 2018-12-19 21:54:16Z smasson $ 45 45 !! Software governed by the CeCILL license (see ./LICENSE) 46 46 !!---------------------------------------------------------------------- … … 136 136 ! ! steric sea surface height 137 137 CALL eos( tsn, zrhd, zrhop, gdept_n(:,:,:) ) ! now in situ and potential density 138 zrhop(:,:,jpk) = 0._wp 138 !CW: commenting out the following line, as seems weird to zero the array before output & only way to get rhop output 139 !zrhop(:,:,jpk) = 0._wp 139 140 CALL iom_put( 'rhop', zrhop ) 140 141 !
Note: See TracChangeset
for help on using the changeset viewer.