- Timestamp:
- 2013-11-20T17:28:04+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90
r4147 r4292 154 154 ELSE ! Background profile of avt (fit a theoretical/observational profile (Krauss 1990) 155 155 avmb(:) = rn_avm0 156 avtb(:) = rn_avt0 + ( 3.e-4_wp - 2._wp * rn_avt0 ) * 1.e-4_wp * gdepw_ 0(:) ! m2/s156 avtb(:) = rn_avt0 + ( 3.e-4_wp - 2._wp * rn_avt0 ) * 1.e-4_wp * gdepw_1d(:) ! m2/s 157 157 IF(ln_sco .AND. lwp) CALL ctl_warn( 'avtb profile not valid in sco' ) 158 158 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.