- Timestamp:
- 2017-03-17T10:44:05+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r6232_HZG_WAVE/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r5407 r7807 62 62 ! !: = 1 global mean of e-p-r set to zero at each nn_fsbc time step 63 63 ! !: = 2 annual global mean of e-p-r set to zero 64 LOGICAL , PUBLIC :: ln_wave !: true if some coupling with wave model 65 LOGICAL , PUBLIC :: ln_cdgw !: true if neutral drag coefficient from wave model 66 LOGICAL , PUBLIC :: ln_sdw !: true if 3d stokes drift from wave model 64 ! LOGICAL , PUBLIC :: ln_wave !: true if some coupling with wave model 65 LOGICAL , PUBLIC :: ln_cdgw = .FALSE. !: true if neutral drag coefficient from wave model 66 ! LOGICAL , PUBLIC :: ln_sdw !: true if 3d stokes drift from wave model 67 ! WAVE2NEMO 11.12.2016 68 LOGICAL , PUBLIC :: ln_wavetke = .FALSE. !: true if wave parametersare read 69 LOGICAL , PUBLIC :: ln_stcor = .FALSE. !: true if Stokes-Coriolisforcing is included 70 LOGICAL , PUBLIC :: ln_tauoc = .FALSE. !: true if wave-modifiedwater-side stress is used 71 ! END WAVE2NEMO 72 73 67 74 ! 68 75 LOGICAL , PUBLIC :: ln_icebergs !: Icebergs … … 125 132 #endif 126 133 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xcplmask !: coupling mask for ln_mixcpl (warning: allocated in sbccpl) 127 134 ! START WAVE2NEMO 26.11.2016 135 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tauoc_wavepar !:normalized stress into the ocean from wave model CCC 136 REAL(wp), PUBLIC,ALLOCATABLE,SAVE,DIMENSION (:,:) :: wspd_wavepar !CCCmoved to sbc_oce 137 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: cdn_wave !:wave model drag coefficient [N/m2] 138 ! END 139 !WAVE2NEMO (14.12.2016) rn_crban moved to here, it needs to be a more global variable 140 REAL(wp),PUBLIC,ALLOCATABLE,SAVE, DIMENSION (:,:) :: rn_crban 128 141 !!---------------------------------------------------------------------- 129 142 !! Sea Surface Mean fields … … 176 189 ALLOCATE( e3t_m(jpi,jpj) , STAT=ierr(5) ) 177 190 #endif 178 ! 191 ! Start WAVE2NEMO 11.12.2016 192 ALLOCATE( cdn_wave(jpi,jpj) ) 193 ALLOCATE( wspd_wavepar(jpi,jpj) ) 194 ! End 195 ! 196 ALLOCATE( rn_crban(jpi,jpj) ) !WAVE2NEMO (13.12.2016) 197 198 ! 179 199 sbc_oce_alloc = MAXVAL( ierr ) 180 200 IF( lk_mpp ) CALL mpp_sum ( sbc_oce_alloc )
Note: See TracChangeset
for help on using the changeset viewer.