- Timestamp:
- 2012-11-21T14:19:18+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
r3294 r3625 155 155 CASE ( 1 ) !* constant flux 156 156 IF(lwp) WRITE(numout,*) ' *** constant heat flux = ', rn_geoflx_cst 157 qgh_trd0(:,:) = r o0cpr* rn_geoflx_cst157 qgh_trd0(:,:) = r1_rau0_rcp * rn_geoflx_cst 158 158 ! 159 159 CASE ( 2 ) !* variable geothermal heat flux : read the geothermal fluxes in mW/m2 … … 162 162 CALL iom_get ( inum, jpdom_data, 'heatflow', qgh_trd0 ) 163 163 CALL iom_close( inum ) 164 qgh_trd0(:,:) = r o0cpr* qgh_trd0(:,:) * 1.e-3 ! conversion in W/m2164 qgh_trd0(:,:) = r1_rau0_rcp * qgh_trd0(:,:) * 1.e-3 ! conversion in W/m2 165 165 ! 166 166 CASE DEFAULT
Note: See TracChangeset
for help on using the changeset viewer.