Changeset 11400
- Timestamp:
- 2019-08-05T10:54:12+02:00 (5 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r11394 r11400 270 270 END DO 271 271 END DO 272 ! clem: store attenuation coefficient of the first ocean level273 IF ( ln_qsr_ice ) THEN274 DO jj = 1, jpj275 DO ji = 1, jpi276 zzc0 = rn_abs * EXP( - fse3t(ji,jj,1) * xsi0r(ji,jj) )277 zzc1 = zcoef * EXP( - fse3t(ji,jj,1) * zekb(ji,jj) )278 zzc2 = zcoef * EXP( - fse3t(ji,jj,1) * zekg(ji,jj) )279 zzc3 = zcoef * EXP( - fse3t(ji,jj,1) * zekr(ji,jj) )280 fraqsr_1lev(ji,jj) = 1.0 - ( zzc0 + zzc1 + zzc2 + zzc3 ) * tmask(ji,jj,2)281 END DO282 END DO283 ENDIF284 272 ! 285 273 DO jk = 1, nksr ! compute and add qsr trend to ta … … 304 292 DO jj = 1, jpj 305 293 DO ji = 1, jpi 306 zc0 = rn_abs * EXP( - fse3t(ji,jj,1) * xsi0r 294 zc0 = rn_abs * EXP( - fse3t(ji,jj,1) * xsi0r(ji,jj) ) 307 295 zc1 = zcoef * EXP( - fse3t(ji,jj,1) * zekb(ji,jj) ) 308 296 zc2 = zcoef * EXP( - fse3t(ji,jj,1) * zekg(ji,jj) ) -
branches/UKMO/dev_r5518_GO6_package_FOAMv14_STOPACK/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r11394 r11400 92 92 REAL(wp) :: rhftau_scl = 1.0_wp ! scale factor applied to HF part of taum (nn_etau=3) 93 93 94 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: en !: now turbulent kinetic energy [m2/s2]95 REAL(wp) , ALLOCATABLE, SAVE, DIMENSION(:,:) :: rn_lc0, rn_ediff0, rn_ediss0, rn_ebb0, rn_efr096 97 94 REAL(wp) , ALLOCATABLE, SAVE, DIMENSION(:,:) :: htau ! depth of tke penetration (nn_htau) 98 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: e_niw !: TKE budget- near-inertial waves term99 REAL(wp) , ALLOCATABLE, SAVE, DIMENSION(:,:) :: efr ! surface boundary condition for nn_etau = 4100 95 REAL(wp) , ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: dissl ! now mixing lenght of dissipation 101 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: avt_k , avm_k ! not enhanced Kz102 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: avmu_k, avmv_k ! not enhanced Kz103 96 #if defined key_c1d 104 97 ! !!** 1D cfg only ** ('key_c1d') … … 106 99 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: e_pdl, e_ric !: prandl and local Richardson numbers 107 100 #endif 108 101 REAL(wp) , ALLOCATABLE, SAVE, DIMENSION(:,:) :: rn_lc0, rn_ediff0, rn_ediss0, rn_ebb0, rn_efr0 102 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: e_niw !: TKE budget- near-inertial waves term 103 REAL(wp) , ALLOCATABLE, SAVE, DIMENSION(:,:) :: efr ! surface boundary condition for nn_etau = 4 104 109 105 !! * Substitutions 110 106 # include "domzgr_substitute.h90"
Note: See TracChangeset
for help on using the changeset viewer.