Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
- Timestamp:
- 2019-03-19T12:32:19+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r10759 r10774 1258 1258 WRITE(numout,*) ' model does not use Conservative Temperature' 1259 1259 ENDIF 1260 IF(lflush) CALL flush(numout) 1260 1261 ENDIF 1261 1262 ! … … 1272 1273 IF(lwp) WRITE(numout,*) 1273 1274 IF(lwp) WRITE(numout,*) ' use of TEOS-10 equation of state (cons. temp. and abs. salinity)' 1275 IF(lwp .AND. lflush) CALL flush(numout) 1274 1276 ! 1275 1277 rdeltaS = 32._wp … … 1462 1464 IF(lwp) WRITE(numout,*) 1463 1465 IF(lwp) WRITE(numout,*) ' use of EOS-80 equation of state (pot. temp. and pract. salinity)' 1466 IF(lwp .AND. lflush) CALL flush(numout) 1464 1467 ! 1465 1468 rdeltaS = 20._wp … … 1662 1665 WRITE(numout,*) ' 2nd cabbel. coef. rn_nu = ', rn_nu 1663 1666 WRITE(numout,*) ' Caution: rn_beta0=0 incompatible with ddm parameterization ' 1667 IF(lflush) CALL flush(numout) 1664 1668 ENDIF 1665 1669 ! … … 1681 1685 IF(lwp) WRITE(numout,*) ' rau0 * rcp rau0_rcp = ', rau0_rcp 1682 1686 IF(lwp) WRITE(numout,*) ' 1. / ( rau0 * rcp ) r1_rau0_rcp = ', r1_rau0_rcp 1687 IF(lwp .AND. lflush) CALL flush(numout) 1683 1688 ! 1684 1689 END SUBROUTINE eos_init
Note: See TracChangeset
for help on using the changeset viewer.