Changeset 12712 for NEMO/branches
- Timestamp:
- 2020-04-08T11:42:02+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_ticket2425/src/OCE/DIA/diaar5.F90
r12631 r12712 185 185 CALL iom_put( 'botpres', zbotpres ) 186 186 ! 187 ELSE IF( iom_use('rhop') ) THEN ! we want just the density field, not steric SSH or botpres 188 CALL eos( tsn, zrhd, zrhop, gdept_n(:,:,:) ) ! now in situ and potential density 189 zrhop(:,:,jpk) = 0._wp 190 CALL iom_put( 'rhop', zrhop ) 187 191 ENDIF 188 192 … … 392 396 IF( iom_use( 'voltot' ) .OR. iom_use( 'sshtot' ) .OR. iom_use( 'sshdyn' ) .OR. & 393 397 & iom_use( 'masstot' ) .OR. iom_use( 'temptot' ) .OR. iom_use( 'saltot' ) .OR. & 394 & iom_use( 'botpres' ) .OR. iom_use( 'sshthster' ) .OR. iom_use( 'sshsteric' ) ) L_ar5 = .TRUE. 398 & iom_use( 'botpres' ) .OR. iom_use( 'sshthster' ) .OR. iom_use( 'sshsteric' ) .OR. & 399 & iom_use( 'rhop' ) ) L_ar5 = .TRUE. 395 400 396 401 IF( l_ar5 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.