- Timestamp:
- 2020-03-23T13:14:40+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ZDF/zdfphy.F90
r12377 r12586 247 247 & rCdU_bot ) ! ==>> out : bottom drag [m/s] 248 248 IF( ln_isfcav ) THEN !* top drag (ocean cavities) 249 CALL zdf_drg( kt, Kmm, mikt, r_Cdmin_top, r_Cdmax_top, & ! <<== in249 CALL zdf_drg( kt, Kmm, INT(mikt) , r_Cdmin_top, r_Cdmax_top, & ! <<== in 250 250 & r_z0_top, r_ke0_top, rCd0_top, & 251 251 & rCdU_top ) ! ==>> out : bottom drag [m/s]
Note: See TracChangeset
for help on using the changeset viewer.