- Timestamp:
- 2015-02-02T18:31:34+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90
r5048 r5051 212 212 CALL iom_put( "vfxspr" , wfx_spr * ztmp ) ! precip (snow) 213 213 214 CALL iom_put( "afxtot" , afx_tot 215 CALL iom_put( "afxdyn" , afx_dyn 216 CALL iom_put( "afxthd" , afx_thd 217 218 CALL iom_put ('hfxthd' , hfx_thd(:,:)) !219 CALL iom_put ('hfxdyn' , hfx_dyn(:,:)) !220 CALL iom_put ('hfxres' , hfx_res(:,:)) !221 CALL iom_put ('hfxout' , hfx_out(:,:)) !222 CALL iom_put ('hfxin' , hfx_in(:,:)) !223 CALL iom_put ('hfxsnw' , hfx_snw(:,:)) !224 CALL iom_put ('hfxsub' , hfx_sub(:,:)) !225 CALL iom_put ('hfxerr' , hfx_err(:,:)) !226 CALL iom_put ('hfxerr_rem' , hfx_err_rem(:,:)) !227 228 CALL iom_put ('hfxsum' , hfx_sum(:,:)) !229 CALL iom_put ('hfxbom' , hfx_bom(:,:)) !230 CALL iom_put ('hfxbog' , hfx_bog(:,:)) !231 CALL iom_put ('hfxdif' , hfx_dif(:,:)) !232 CALL iom_put ('hfxopw' , hfx_opw(:,:)) !233 CALL iom_put ('hfxtur' , fhtur(:,:) * at_i(:,:) )! turbulent heat flux at ice base234 CALL iom_put ('hfxdhc' , diag_heat_dhc(:,:) )! Heat content variation in snow and ice235 CALL iom_put ('hfxspr' , hfx_spr(:,:) )! Heat content of snow precip214 CALL iom_put( "afxtot" , afx_tot * rday ) ! concentration tendency (total) 215 CALL iom_put( "afxdyn" , afx_dyn * rday ) ! concentration tendency (dynamics) 216 CALL iom_put( "afxthd" , afx_thd * rday ) ! concentration tendency (thermo) 217 218 CALL iom_put ('hfxthd' , hfx_thd(:,:) ) ! 219 CALL iom_put ('hfxdyn' , hfx_dyn(:,:) ) ! 220 CALL iom_put ('hfxres' , hfx_res(:,:) ) ! 221 CALL iom_put ('hfxout' , hfx_out(:,:) ) ! 222 CALL iom_put ('hfxin' , hfx_in(:,:) ) ! 223 CALL iom_put ('hfxsnw' , hfx_snw(:,:) ) ! 224 CALL iom_put ('hfxsub' , hfx_sub(:,:) ) ! 225 CALL iom_put ('hfxerr' , hfx_err(:,:) ) ! 226 CALL iom_put ('hfxerr_rem' , hfx_err_rem(:,:) ) ! 227 228 CALL iom_put ('hfxsum' , hfx_sum(:,:) ) ! 229 CALL iom_put ('hfxbom' , hfx_bom(:,:) ) ! 230 CALL iom_put ('hfxbog' , hfx_bog(:,:) ) ! 231 CALL iom_put ('hfxdif' , hfx_dif(:,:) ) ! 232 CALL iom_put ('hfxopw' , hfx_opw(:,:) ) ! 233 CALL iom_put ('hfxtur' , fhtur(:,:) * at_i(:,:) ) ! turbulent heat flux at ice base 234 CALL iom_put ('hfxdhc' , diag_heat_dhc(:,:) ) ! Heat content variation in snow and ice 235 CALL iom_put ('hfxspr' , hfx_spr(:,:) ) ! Heat content of snow precip 236 236 237 237 !--------------------------------
Note: See TracChangeset
for help on using the changeset viewer.