- Timestamp:
- 2020-05-07T14:57:43+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/ticket_2459
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/ticket_2459
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette @HEAD sette10 ^/utils/CI/sette_ticket2459@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2020/ticket_2459/tests/ISOMIP+/MY_SRC/isfcavgam.F90
r12077 r12889 91 91 pgs(:,:) = rn_gammas0 92 92 CASE ( 'vel' ) ! gamma is proportional to u* 93 CALL gammats_vel ( zutbl, zvtbl, rCd0_top, r _ke0_top, pgt, pgs )93 CALL gammats_vel ( zutbl, zvtbl, rCd0_top, rn_vtide**2, pgt, pgs ) 94 94 CASE ( 'vel_stab' ) ! gamma depends of stability of boundary layer and u* 95 CALL gammats_vel_stab (Kmm, pttbl, pstbl, zutbl, zvtbl, rCd0_top, r _ke0_top, pqoce, pqfwf, pgt, pgs )95 CALL gammats_vel_stab (Kmm, pttbl, pstbl, zutbl, zvtbl, rCd0_top, rn_vtide**2, pqoce, pqfwf, pgt, pgs ) 96 96 CASE DEFAULT 97 97 CALL ctl_stop('STOP','method to compute gamma (cn_gammablk) is unknown (should not see this)')
Note: See TracChangeset
for help on using the changeset viewer.