- Timestamp:
- 2013-11-20T10:35:28+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3856_MERCATOR3_QSRMEAN24H/NEMOGCM/NEMO/TOP_SRC/trcsub.F90
r4236 r4276 123 123 fr_i_tm (:,:) = fr_i_tm (:,:) + fr_i (:,:) 124 124 emp_tm (:,:) = emp_tm (:,:) + emp (:,:) 125 sfx_tm (:,:) = sfx_tm (:,:) + sfx(:,:)125 fmmflx_tm(:,:) = fmmflx_tm(:,:) + fmmflx(:,:) 126 126 qsr_tm (:,:) = qsr_tm (:,:) + qsr (:,:) 127 127 wndm_tm (:,:) = wndm_tm (:,:) + wndm (:,:) … … 211 211 emp_temp (:,:) = emp (:,:) 212 212 emp_b_temp (:,:) = emp_b (:,:) 213 sfx_temp (:,:) = sfx(:,:)213 fmmflx_temp(:,:) = fmmflx(:,:) 214 214 qsr_temp (:,:) = qsr (:,:) 215 215 wndm_temp (:,:) = wndm (:,:) … … 315 315 fr_i_tm (:,:) = fr_i_tm (:,:) + fr_i (:,:) 316 316 emp_tm (:,:) = emp_tm (:,:) + emp (:,:) 317 sfx_tm (:,:) = sfx_tm (:,:) + sfx(:,:)317 fmmflx_tm(:,:) = fmmflx_tm (:,:) + fmmflx(:,:) 318 318 qsr_tm (:,:) = qsr_tm (:,:) + qsr (:,:) 319 319 wndm_tm (:,:) = wndm_tm (:,:) + wndm (:,:) … … 334 334 qsr (:,:) = qsr_tm (:,:) * r1_ndttrc 335 335 emp (:,:) = emp_tm (:,:) * r1_ndttrc 336 sfx (:,:) = sfx_tm(:,:) * r1_ndttrc336 fmmflx(:,:) = fmmflx_tm (:,:) * r1_ndttrc 337 337 fr_i (:,:) = fr_i_tm (:,:) * r1_ndttrc 338 338 # if defined key_trabbl … … 350 350 qsr (:,:) = qsr_tm (:,:) * r1_ndttrcp1 351 351 emp (:,:) = emp_tm (:,:) * r1_ndttrcp1 352 sfx (:,:) = sfx_tm(:,:) * r1_ndttrcp1352 fmmflx(:,:) = fmmflx_tm (:,:) * r1_ndttrcp1 353 353 fr_i (:,:) = fr_i_tm (:,:) * r1_ndttrcp1 354 354 # if defined key_trabbl … … 500 500 CALL lbc_lnk( emp (:,:) , 'T', 1. ) 501 501 CALL lbc_lnk( emp_b (:,:) , 'T', 1. ) 502 CALL lbc_lnk( sfx(:,:) , 'T', 1. )502 CALL lbc_lnk( fmmflx(:,:) , 'T', 1. ) 503 503 CALL lbc_lnk( qsr (:,:) , 'T', 1. ) 504 504 CALL lbc_lnk( wndm (:,:) , 'T', 1. ) … … 600 600 fr_i_tm(:,:) = 0._wp 601 601 emp_tm (:,:) = 0._wp 602 sfx_tm(:,:) = 0._wp602 fmmflx_tm(:,:) = 0._wp 603 603 qsr_tm (:,:) = 0._wp 604 604 wndm_tm(:,:) = 0._wp … … 707 707 fr_i (:,:) = fr_i_temp (:,:) 708 708 emp (:,:) = emp_temp (:,:) 709 sfx (:,:) = sfx_temp(:,:)709 fmmflx(:,:) = fmmflx_temp(:,:) 710 710 emp_b (:,:) = emp_b_temp (:,:) 711 711 qsr (:,:) = qsr_temp (:,:) … … 826 826 fr_i_tm (:,:) = fr_i (:,:) 827 827 emp_tm (:,:) = emp (:,:) 828 sfx_tm (:,:) = sfx(:,:)828 fmmflx_tm (:,:) = fmmflx(:,:) 829 829 qsr_tm (:,:) = qsr (:,:) 830 830 wndm_tm (:,:) = wndm (:,:) … … 1055 1055 & rnf_temp(jpi,jpj) , h_rnf_temp(jpi,jpj) , & 1056 1056 & tsn_temp(jpi,jpj,jpk,2) , emp_b_temp(jpi,jpj), & 1057 & emp_temp(jpi,jpj) , sfx_temp(jpi,jpj) ,&1057 & emp_temp(jpi,jpj) , fmmflx_temp(jpi,jpj), & 1058 1058 & hmld_temp(jpi,jpj) , qsr_temp(jpi,jpj) , & 1059 1059 & fr_i_temp(jpi,jpj) , fr_i_tm(jpi,jpj) , & … … 1103 1103 & sshv_n_tm(jpi,jpj) , sshv_b_hold(jpi,jpj), & 1104 1104 & tsn_tm(jpi,jpj,jpk,2) , & 1105 & emp_tm(jpi,jpj) , sfx_tm(jpi,jpj) ,&1105 & emp_tm(jpi,jpj) , fmmflx_tm(jpi,jpj) , & 1106 1106 & emp_b_hold(jpi,jpj) , & 1107 1107 & hmld_tm(jpi,jpj) , qsr_tm(jpi,jpj) , &
Note: See TracChangeset
for help on using the changeset viewer.