Changeset 7155
- Timestamp:
- 2016-10-28T12:56:46+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r5518_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r7152 r7155 242 242 & sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau , sn_rcv_dqnsdt, sn_rcv_qsr, & 243 243 & sn_snd_ifrac, sn_snd_crtw , sn_snd_wlev , sn_rcv_hsig , sn_rcv_phioc , & 244 & sn_rcv_sdrfx, sn_rcv_sdrfy, sn_rcv_wper , sn_rcv_w strf , sn_rcv_wdrag, &245 & sn_rcv_ qns , sn_rcv_emp , sn_rcv_rnf , sn_rcv_cal , sn_rcv_iceflx, &246 & sn_rcv_ co2, nn_cplmodel , ln_usecplmask, sn_rcv_mslp244 & sn_rcv_sdrfx, sn_rcv_sdrfy, sn_rcv_wper , sn_rcv_wnum , sn_rcv_wstrf , & 245 & sn_rcv_wdrag, sn_rcv_qns , sn_rcv_emp , sn_rcv_rnf , sn_rcv_cal , & 246 & sn_rcv_iceflx,sn_rcv_co2 , nn_cplmodel , ln_usecplmask, sn_rcv_mslp 247 247 !!--------------------------------------------------------------------- 248 248 ! … … 287 287 WRITE(numout,*)' significant wave heigth = ', TRIM(sn_rcv_hsig%cldes ), ' (', TRIM(sn_rcv_hsig%clcat ), ')' 288 288 WRITE(numout,*)' wave to oce energy flux = ', TRIM(sn_rcv_phioc%cldes ), ' (', TRIM(sn_rcv_phioc%clcat ), ')' 289 WRITE(numout,*)' Surface Stokes drift grid u = ', TRIM(sn_rcv_sdrfx%cldes ), ' (', TRIM(sn_rcv_sdrfx%clcat ), ')' 290 WRITE(numout,*)' Surface Stokes drift grid v = ', TRIM(sn_rcv_sdrfy%cldes ), ' (', TRIM(sn_rcv_sdrfy%clcat ), ')' 291 WRITE(numout,*)' Mean wave period = ', TRIM(sn_rcv_wper%cldes ), ' (', TRIM(sn_rcv_wper%clcat ), ')' 292 WRITE(numout,*)' Mean wave number = ', TRIM(sn_rcv_wnum%cldes ), ' (', TRIM(sn_rcv_wnum%clcat ), ')' 293 WRITE(numout,*)' Stress frac adsorbed by waves = ', TRIM(sn_rcv_wstrf%cldes ), ' (', TRIM(sn_rcv_wstrf%clcat ), ')' 294 WRITE(numout,*)' Neutral surf drag coefficient = ', TRIM(sn_rcv_wdrag%cldes ), ' (', TRIM(sn_rcv_wdrag%clcat ), ')' 289 295 WRITE(numout,*)' sent fields (multiple ice categories)' 290 296 WRITE(numout,*)' surface temperature = ', TRIM(sn_snd_temp%cldes ), ' (', TRIM(sn_snd_temp%clcat ), ')' … … 1121 1127 END IF 1122 1128 ! 1129 IF( ln_sdw ) THEN ! Stokes Drift correction activated 1123 1130 ! ! ========================= ! 1124 1131 ! ! Stokes drift u ! 1125 1132 ! ! ========================= ! 1126 IF( srcv(jpr_sdrftx)%laction .AND. ln_sdw) zusd2dt(:,:) = frcv(jpr_sdrftx)%z3(:,:,1)1133 IF( srcv(jpr_sdrftx)%laction ) zusd2dt(:,:) = frcv(jpr_sdrftx)%z3(:,:,1) 1127 1134 ! 1128 1135 ! ! ========================= ! 1129 1136 ! ! Stokes drift v ! 1130 1137 ! ! ========================= ! 1131 IF( srcv(jpr_sdrfty)%laction .AND. ln_sdw) zvsd2dt(:,:) = frcv(jpr_sdrfty)%z3(:,:,1)1138 IF( srcv(jpr_sdrfty)%laction ) zvsd2dt(:,:) = frcv(jpr_sdrfty)%z3(:,:,1) 1132 1139 ! 1133 1140 ! ! ========================= ! 1134 1141 ! ! Wave mean period ! 1135 1142 ! ! ========================= ! 1136 IF( srcv(jpr_wper)%laction .AND. ln_sdw) wmp(:,:) = frcv(jpr_wper)%z3(:,:,1)1143 IF( srcv(jpr_wper)%laction ) wmp(:,:) = frcv(jpr_wper)%z3(:,:,1) 1137 1144 ! 1138 1145 ! ! ========================= ! 1139 1146 ! ! Significant wave height ! 1140 1147 ! ! ========================= ! 1141 IF( srcv(jpr_hsig)%laction .AND. ln_sdw) swh(:,:) = frcv(jpr_hsig)%z3(:,:,1)1148 IF( srcv(jpr_hsig)%laction ) swh(:,:) = frcv(jpr_hsig)%z3(:,:,1) 1142 1149 ! 1143 1150 ! ! ========================= ! 1144 1151 ! ! Vertical mixing Qiao ! 1145 1152 ! ! ========================= ! 1146 IF( srcv(jpr_wnum)%laction .AND. ln_sdw .AND. ln_zdfqiao ) THEN 1147 wnum(:,:) = frcv(jpr_wnum)%z3(:,:,1) 1148 ENDIF 1149 1150 ! Calculate the 3D Stokes drift 1151 IF( ln_sdw ) THEN 1153 IF( srcv(jpr_wnum)%laction .AND. ln_zdfqiao ) wnum(:,:) = frcv(jpr_wnum)%z3(:,:,1) 1154 1155 ! Calculate the 3D Stokes drift both in coupled and not fully uncoupled mode 1152 1156 IF( srcv(jpr_sdrftx)%laction .OR. srcv(jpr_sdrfty)%laction .OR. srcv(jpr_wper)%laction & 1153 1157 .OR. srcv(jpr_hsig)%laction ) THEN
Note: See TracChangeset
for help on using the changeset viewer.