Changeset 9403 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL/MY_SRC/usrdef_sbc.F90
- Timestamp:
- 2018-03-15T15:57:42+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL/MY_SRC/usrdef_sbc.F90
r9302 r9403 3 3 !! *** MODULE usrdef_sbc *** 4 4 !! 5 !! === VORTEXconfiguration ===5 !! === CANAL configuration === 6 6 !! 7 7 !! User defined : surface forcing of a user configuration … … 17 17 USE sbc_oce ! Surface boundary condition: ocean fields 18 18 USE phycst ! physical constants 19 USE usrdef_nam, ONLY : rn_u10, rn_uofac, rn_ ujetszy19 USE usrdef_nam, ONLY : rn_u10, rn_uofac, rn_windszy 20 20 ! 21 21 USE in_out_manager ! I/O manager … … 47 47 !! condition, i.e. the momentum, heat and freshwater fluxes. 48 48 !! 49 !! ** Method : all 0 fields, for VORTEXcase49 !! ** Method : all 0 fields, for CANAL case 50 50 !! CAUTION : never mask the surface stress field ! 51 51 !! … … 71 71 ! 72 72 utau(:,:) = 0._wp 73 IF( rn_u10 /= 0. .AND. rn_ ujetszy > 0. ) THEN74 WHERE( ABS(gphit) <= rn_ ujetszy/2. ) utau(:,:) = zrhocd * rn_u10 * rn_u1073 IF( rn_u10 /= 0. .AND. rn_windszy > 0. ) THEN 74 WHERE( ABS(gphit) <= rn_windszy/2. ) utau(:,:) = zrhocd * rn_u10 * rn_u10 75 75 ENDIF 76 76 vtau(:,:) = 0._wp … … 87 87 IF( rn_uofac /= 0. ) THEN 88 88 89 WHERE( ABS(gphit) <= rn_ ujetszy/2. )89 WHERE( ABS(gphit) <= rn_windszy/2. ) 90 90 zwndrel(:,:) = rn_u10 - rn_uofac * un(:,:,1) 91 91 ELSEWHERE
Note: See TracChangeset
for help on using the changeset viewer.