Changeset 14917 for NEMO/branches/2021/ticket2669_isf_fluxes/src
- Timestamp:
- 2021-05-27T19:30:09+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfcavmlt.F90
r14907 r14917 124 124 ! 125 125 ! output freezing point at the interface 126 CALL iom_put('isftfrz_cav', ztfrz )126 CALL iom_put('isftfrz_cav', ztfrz(:,:) * mskisf_cav(:,:) ) 127 127 ! 128 128 END SUBROUTINE isfcav_mlt_spe … … 169 169 ! output thermal driving and freezinpoint at the ice shelf interface 170 170 CALL iom_put('isfthermald_cav', zthd ) 171 CALL iom_put('isftfrz_cav' , ztfrz )171 CALL iom_put('isftfrz_cav' , ztfrz(:,:) * mskisf_cav(:,:) ) 172 172 ! 173 173 END SUBROUTINE isfcav_mlt_2eq -
NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfpar.F90
r14908 r14917 75 75 zqhc (:,:) = zqhc(:,:) * mskisf_par(:,:) 76 76 ! 77 ! compute heat content flux ( > 0 out )78 zqlat(:,:) = pqfwf(:,:) * rLfusisf ! 2d latent heat flux (W/m2)77 ! compute latent heat flux ( > 0 out ) 78 zqlat(:,:) = - pqfwf(:,:) * rLfusisf ! 2d latent heat flux (W/m2) 79 79 ! 80 80 ! total heat flux ( > 0 out ) -
NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfparmlt.F90
r14916 r14917 116 116 pqhc (:,:) = pqfwf(:,:) * ztfrz(:,:) * rcp ! heat content flux ( > 0 out ) 117 117 ! 118 CALL iom_put('isftfrz_par', ztfrz )118 CALL iom_put('isftfrz_par', ztfrz(:,:) * mskisf_par(:,:) ) 119 119 ! 120 120 END SUBROUTINE isfpar_mlt_spe … … 154 154 ! 155 155 ! 1. ------------Mean temperature 156 CALL isf_tbl(Kmm, ts(:,:, jk,jp_tem,Kmm), ztavg, 'T', misfkt_par, rhisf_tbl_par, misfkb_par, rfrac_tbl_par )156 CALL isf_tbl(Kmm, ts(:,:,:,jp_tem,Kmm), ztavg, 'T', misfkt_par, rhisf_tbl_par, misfkb_par, rfrac_tbl_par ) 157 157 ! 158 158 ! 2. ------------Net heat flux and fresh water flux due to the ice shelf … … 169 169 ! 170 170 ! output freezing point used to define the thermal driving and heat content fluxes 171 CALL iom_put('isftfrz_par', ztfrz )171 CALL iom_put('isftfrz_par', ztfrz(:,:) * mskisf_par(:,:) ) 172 172 ! 173 173 END SUBROUTINE isfpar_mlt_bg03
Note: See TracChangeset
for help on using the changeset viewer.