Changeset 6489 for trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
- Timestamp:
- 2016-04-20T14:26:29+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r6140 r6489 31 31 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 32 32 33 USE eosbn2, ONLY : n n_eos33 USE eosbn2, ONLY : neos 34 34 35 35 IMPLICIT NONE … … 175 175 ! Compute Ekman depth from wind stress forcing. 176 176 ! ------------------------------------------------------- 177 zflageos = ( 0.5 + SIGN( 0.5, n n_eos - 1. ) ) * rau0177 zflageos = ( 0.5 + SIGN( 0.5, neos - 1. ) ) * rau0 178 178 DO jj = 2, jpjm1 179 179 DO ji = fs_2, fs_jpim1
Note: See TracChangeset
for help on using the changeset viewer.