Changeset 2259
- Timestamp:
- 2010-10-13T19:00:25+02:00 (13 years ago)
- Location:
- branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r2148 r2259 79 79 z1_rau0 = 1.e0 / rau0 80 80 z_frc_trd_v = z1_rau0 * SUM( - ( emp(:,:) - rnf(:,:) ) * surf(:,:) ) ! volume fluxes 81 z_frc_trd_t = SUM( sbc_ hc_n(:,:) * surf(:,:) ) ! heat fluxes82 z_frc_trd_s = SUM( sbc_ sc_n(:,:) * surf(:,:) ) ! salt fluxes81 z_frc_trd_t = SUM( sbc_tsc(:,:,jp_tem) * surf(:,:) ) ! heat fluxes 82 z_frc_trd_s = SUM( sbc_tsc(:,:,jp_sal) * surf(:,:) ) ! salt fluxes 83 83 ! Add penetrative solar radiation 84 84 IF( ln_traqsr ) z_frc_trd_t = z_frc_trd_t + ro0cpr * SUM( qsr (:,:) * surf(:,:) ) -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r2257 r2259 21 21 USE in_out_manager ! I/O manager 22 22 USE iom ! I/O module 23 USE restart ! restart 23 24 24 25 IMPLICIT NONE -
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r2257 r2259 107 107 INTEGER, INTENT(in) :: kt ! ocean time-step index 108 108 !! 109 INTEGER :: ji, jj, jk ! dummy loop indices110 REAL(wp) :: zfact, z1_e3t, zsrau, zdep109 INTEGER :: ji, jj, jk, jn ! dummy loop indices 110 REAL(wp) :: zfact, z1_e3t, zsrau, zdep 111 111 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: ztrdt, ztrds 112 112 !!---------------------------------------------------------------------- … … 148 148 ! ! ---------------------- 149 149 zfact = 0.5e0 150 sbc_tsc_b(:,:,:) = sbc_tsc(:,: )150 sbc_tsc_b(:,:,:) = sbc_tsc(:,:,:) 151 151 ENDIF 152 152 ! Compute now sbc tracer content fields
Note: See TracChangeset
for help on using the changeset viewer.