- Timestamp:
- 2015-07-20T19:43:15+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r5431 r5619 22 22 USE sbcrnf ! River runoff 23 23 USE sbcisf ! Ice shelf 24 USE sbc_iscpl ! Ice sheet coupling 24 25 USE traqsr ! solar radiation penetration 25 26 USE trd_oce ! trends: ocean variables … … 117 118 INTEGER :: ji, jj, jk, jn ! dummy loop indices 118 119 INTEGER :: ikt, ikb 119 INTEGER :: nk_isf120 120 REAL(wp) :: zfact, z1_e3t, zdep 121 REAL(wp) :: zalpha, zhk 122 REAL(wp) :: zt_frz, zpress 121 REAL(wp) :: zt_frz, zpress 123 122 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdt, ztrds 124 123 !!---------------------------------------------------------------------- … … 220 219 ! 221 220 IF( nn_isf > 0 ) THEN 222 zfact = 0.5 e0221 zfact = 0.5_wp 223 222 DO jj = 2, jpj 224 223 DO ji = fs_2, fs_jpim1 … … 233 232 ! compute tfreez for the temperature correction (we add water at freezing temperature) 234 233 ! zpress = grav*rau0*fsdept(ji,jj,jk)*1.e-04 235 zt_frz = -1.9 !eos_fzp( tsn(ji,jj,jk,jp_sal), zpress )234 zt_frz = -1.9_wp !eos_fzp( tsn(ji,jj,jk,jp_sal), zpress ) 236 235 ! compute trend 237 236 tsa(ji,jj,jk,jp_tem) = tsa(ji,jj,jk,jp_tem) & … … 246 245 ! compute tfreez for the temperature correction (we add water at freezing temperature) 247 246 ! zpress = grav*rau0*fsdept(ji,jj,ikb)*1.e-04 248 zt_frz = -1.9 !eos_fzp( tsn(ji,jj,ikb,jp_sal), zpress )247 zt_frz = -1.9_wp !eos_fzp( tsn(ji,jj,ikb,jp_sal), zpress ) 249 248 ! compute trend 250 249 tsa(ji,jj,ikb,jp_tem) = tsa(ji,jj,ikb,jp_tem) & … … 288 287 ENDIF 289 288 290 IF( l_trdtra ) THEN ! send trends for further diagnostics 289 !---------------------------------------- 290 ! Ice Sheet coupling imbalance correction to have conservation 291 !---------------------------------------- 292 ! 293 IF( ln_iscpl .AND. ln_hfb) THEN ! input of heat and salt due to river runoff 294 DO jk = 1,jpk 295 DO jj = 2, jpj 296 DO ji = fs_2, fs_jpim1 297 zdep = 1._wp / fse3t_n(ji,jj,jk) 298 tsa(ji,jj,jk,jp_tem) = tsa(ji,jj,jk,jp_tem) - htsc_iscpl(ji,jj,jk,jp_tem) & 299 & * zdep 300 tsa(ji,jj,jk,jp_sal) = tsa(ji,jj,jk,jp_sal) - htsc_iscpl(ji,jj,jk,jp_sal) & 301 & * zdep 302 END DO 303 END DO 304 END DO 305 ENDIF 306 307 IF( l_trdtra ) THEN ! save the horizontal diffusive trends for further diagnostics 291 308 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) - ztrdt(:,:,:) 292 309 ztrds(:,:,:) = tsa(:,:,:,jp_sal) - ztrds(:,:,:)
Note: See TracChangeset
for help on using the changeset viewer.