Changeset 14728
- Timestamp:
- 2021-04-19T14:51:45+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90
r14571 r14728 2979 2979 zsc_uw_2(:,:) = ( 2.25_wp - 3.0_wp * ( 1.0_wp - EXP( -1.25_wp * 2.0_wp ) ) ) * ( 1.0_wp - EXP( -4.0_wp * 2.0_wp ) ) * & 2980 2980 & zsc_uw_1(:,:) 2981 zsc_vw_1(:,:) = ff_t * pustke(A2D(0)) * phbl(A2D(0))2981 zsc_vw_1(:,:) = ff_t(A2D(0)) * pustke(A2D(0)) * phbl(A2D(0)) 2982 2982 zsc_vw_2(:,:) = -0.11_wp * SIN( 3.14159_wp * ( 2.0_wp + 0.4_wp ) ) * EXP( -1.0_wp * ( 1.5_wp + 2.0_wp )**2 ) * & 2983 2983 & zsc_vw_1(:,:)
Note: See TracChangeset
for help on using the changeset viewer.