Changeset 1573 for trunk/NEMO/OPA_SRC/SBC/sbcssr.F90
- Timestamp:
- 2009-08-03T17:57:25+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcssr.F90
r1554 r1573 32 32 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: qrp !: heat flux damping [w/m2] 33 33 34 ! !!* Namelist namsbc_ssr *35 INTEGER :: nn_sstr, nn_sssr ! SST/SSS restoring indicator36 REAL(wp) :: dqdt , deds! restoring factor on SST and SSS37 LOGICAL :: ln_sssr_bnd ! flag to bound erp term38 REAL(wp) ::rn_sssr_bnd ! ABS(Max./Min.) value of erp term [mm/day]34 ! !!* Namelist namsbc_ssr * 35 INTEGER, PUBLIC :: nn_sstr, nn_sssr ! SST/SSS restoring indicator 36 REAL(wp) :: dqdt, deds ! restoring factor on SST and SSS 37 LOGICAL :: ln_sssr_bnd ! flag to bound erp term 38 REAL(wp) :: rn_sssr_bnd ! ABS(Max./Min.) value of erp term [mm/day] 39 39 40 40 REAL(wp) , ALLOCATABLE, DIMENSION(:) :: buffer ! Temporary buffer for exchange
Note: See TracChangeset
for help on using the changeset viewer.