Changeset 12489 for NEMO/trunk/src/OCE/TRA/trabbc.F90
- Timestamp:
- 2020-02-28T16:55:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRA/trabbc.F90
r12377 r12489 66 66 !! ocean bottom can be computed once and is added to the temperature 67 67 !! trend juste above the bottom at each time step: 68 !! ta = ta + Qsf / (r au0 rcp e3T) for k= mbkt68 !! ta = ta + Qsf / (rho0 rcp e3T) for k= mbkt 69 69 !! Where Qsf is the geothermal heat flux. 70 70 !! … … 102 102 ENDIF 103 103 ! 104 CALL iom_put ( "hfgeou" , r au0_rcp * qgh_trd0(:,:) )104 CALL iom_put ( "hfgeou" , rho0_rcp * qgh_trd0(:,:) ) 105 105 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=pts(:,:,:,jp_tem,Krhs), clinfo1=' bbc - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 106 106 ! … … 162 162 CASE ( 1 ) !* constant flux 163 163 IF(lwp) WRITE(numout,*) ' ==>>> constant heat flux = ', rn_geoflx_cst 164 qgh_trd0(:,:) = r1_r au0_rcp * rn_geoflx_cst164 qgh_trd0(:,:) = r1_rho0_rcp * rn_geoflx_cst 165 165 ! 166 166 CASE ( 2 ) !* variable geothermal heat flux : read the geothermal fluxes in mW/m2 … … 179 179 180 180 CALL fld_read( nit000, 1, sf_qgh ) ! Read qgh data 181 qgh_trd0(:,:) = r1_r au0_rcp * sf_qgh(1)%fnow(:,:,1) * 1.e-3 ! conversion in W/m2181 qgh_trd0(:,:) = r1_rho0_rcp * sf_qgh(1)%fnow(:,:,1) * 1.e-3 ! conversion in W/m2 182 182 ! 183 183 CASE DEFAULT
Note: See TracChangeset
for help on using the changeset viewer.