Changeset 3623 for branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2012-11-21T13:12:48+01:00 (12 years ago)
- Location:
- branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
r3403 r3623 227 227 USE sbc_oce , ONLY : emp => emp !: freshwater budget: volume flux [Kg/m2/s] 228 228 USE sbc_oce , ONLY : emp_b => emp_b !: freshwater budget: volume flux [Kg/m2/s] 229 USE sbc_oce , ONLY : sfx => sfx !: freshwater budget: concentration/dillution [Kg/m2/s]229 USE sbc_oce , ONLY : sfx => sfx !: downward salt flux [PSU/m2/s] 230 230 USE sbc_oce , ONLY : rnf => rnf !: river runoff [Kg/m2/s] 231 231 USE sbc_oce , ONLY : ln_dm2dc => ln_dm2dc !: Daily mean to Diurnal Cycle short wave (qsr) -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/TOP_SRC/trc.F90
r3294 r3623 133 133 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: fr_i_tm !: average ice fraction [m/s] 134 134 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: emp_tm !: freshwater budget: volume flux [Kg/m2/s] 135 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: emps_tm !: freshwater budget:concentration/dilution [Kg/m2/s]135 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: sfx_tm !: downward salt flux [PSU/m2/s] 136 136 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: emp_b_hold !: hold emp from the beginning of each sub-stepping[m] 137 137 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: qsr_tm !: solar radiation average [m] … … 173 173 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: hdivb_temp, rotb_temp 174 174 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hmld_temp, qsr_temp, fr_i_temp,wndm_temp 175 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: emp_temp, emps_temp, emp_b_temp175 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: emp_temp, sfx_temp, emp_b_temp 176 176 ! 177 177 #if defined key_trabbl -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/TOP_SRC/trcsub.F90
r3403 r3623 121 121 fr_i_tm (:,:) = fr_i_tm (:,:) + fr_i (:,:) 122 122 emp_tm (:,:) = emp_tm (:,:) + emp (:,:) 123 emps_tm (:,:) = emps_tm(:,:) + sfx (:,:)123 sfx_tm (:,:) = sfx_tm (:,:) + sfx (:,:) 124 124 qsr_tm (:,:) = qsr_tm (:,:) + qsr (:,:) 125 125 wndm_tm (:,:) = wndm_tm (:,:) + wndm (:,:) … … 209 209 emp_temp (:,:) = emp (:,:) 210 210 emp_b_temp (:,:) = emp_b (:,:) 211 emps_temp(:,:) = sfx (:,:)211 sfx_temp (:,:) = sfx (:,:) 212 212 qsr_temp (:,:) = qsr (:,:) 213 213 wndm_temp (:,:) = wndm (:,:) … … 313 313 fr_i_tm (:,:) = fr_i_tm (:,:) + fr_i (:,:) 314 314 emp_tm (:,:) = emp_tm (:,:) + emp (:,:) 315 emps_tm (:,:) = emps_tm(:,:) + sfx (:,:)315 sfx_tm (:,:) = sfx_tm (:,:) + sfx (:,:) 316 316 qsr_tm (:,:) = qsr_tm (:,:) + qsr (:,:) 317 317 wndm_tm (:,:) = wndm_tm (:,:) + wndm (:,:) … … 332 332 qsr (:,:) = qsr_tm (:,:) * r1_ndttrc 333 333 emp (:,:) = emp_tm (:,:) * r1_ndttrc 334 sfx (:,:) = emps_tm(:,:) * r1_ndttrc334 sfx (:,:) = sfx_tm (:,:) * r1_ndttrc 335 335 fr_i (:,:) = fr_i_tm (:,:) * r1_ndttrc 336 336 # if defined key_trabbl … … 348 348 qsr (:,:) = qsr_tm (:,:) * r1_ndttrcp1 349 349 emp (:,:) = emp_tm (:,:) * r1_ndttrcp1 350 sfx (:,:) = emps_tm(:,:) * r1_ndttrcp1350 sfx (:,:) = sfx_tm (:,:) * r1_ndttrcp1 351 351 fr_i (:,:) = fr_i_tm (:,:) * r1_ndttrcp1 352 352 # if defined key_trabbl … … 598 598 fr_i_tm(:,:) = 0._wp 599 599 emp_tm (:,:) = 0._wp 600 emps_tm(:,:)= 0._wp600 sfx_tm(:,:) = 0._wp 601 601 qsr_tm (:,:) = 0._wp 602 602 wndm_tm(:,:) = 0._wp … … 705 705 fr_i (:,:) = fr_i_temp (:,:) 706 706 emp (:,:) = emp_temp (:,:) 707 sfx (:,:) = emps_temp(:,:)707 sfx (:,:) = sfx_temp (:,:) 708 708 emp_b (:,:) = emp_b_temp (:,:) 709 709 qsr (:,:) = qsr_temp (:,:) … … 824 824 fr_i_tm (:,:) = fr_i (:,:) 825 825 emp_tm (:,:) = emp (:,:) 826 emps_tm(:,:) = sfx (:,:)826 sfx_tm (:,:) = sfx (:,:) 827 827 qsr_tm (:,:) = qsr (:,:) 828 828 wndm_tm (:,:) = wndm (:,:) … … 1053 1053 & rnf_temp(jpi,jpj) , h_rnf_temp(jpi,jpj) , & 1054 1054 & tsn_temp(jpi,jpj,jpk,2) , emp_b_temp(jpi,jpj), & 1055 & emp_temp(jpi,jpj) , emps_temp(jpi,jpj), &1055 & emp_temp(jpi,jpj) , sfx_temp(jpi,jpj) , & 1056 1056 & hmld_temp(jpi,jpj) , qsr_temp(jpi,jpj) , & 1057 1057 & fr_i_temp(jpi,jpj) , fr_i_tm(jpi,jpj) , & … … 1101 1101 & sshv_n_tm(jpi,jpj) , sshv_b_hold(jpi,jpj), & 1102 1102 & tsn_tm(jpi,jpj,jpk,2) , & 1103 & emp_tm(jpi,jpj) , emps_tm(jpi,jpj), &1103 & emp_tm(jpi,jpj) , sfx_tm(jpi,jpj) , & 1104 1104 & emp_b_hold(jpi,jpj) , & 1105 1105 & hmld_tm(jpi,jpj) , qsr_tm(jpi,jpj) , &
Note: See TracChangeset
for help on using the changeset viewer.