- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r8447 r11101 1241 1241 READ ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 1242 1242 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 1243 IF(lwm ) WRITE( numond, nameos )1243 IF(lwm .AND. nprint > 2) WRITE( numond, nameos ) 1244 1244 ! 1245 1245 rau0 = 1026._wp !: volumic mass of reference [kg/m3] … … 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.