- Timestamp:
- 2018-11-07T18:25:49+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/ICE/icewri.F90
- Property svn:keywords set to Id
r9604 r10288 37 37 !!---------------------------------------------------------------------- 38 38 !! NEMO/ICE 4.0 , NEMO Consortium (2018) 39 !! $Id : icewri.F90 8409 2017-08-07 15:29:21Z clem$40 !! Software governed by the CeCILL licen ce (./LICENSE)39 !! $Id$ 40 !! Software governed by the CeCILL license (see ./LICENSE) 41 41 !!---------------------------------------------------------------------- 42 42 CONTAINS … … 85 85 ! Standard outputs 86 86 !----------------- 87 zrho1 = ( rau0 - rhoi c ) * r1_rau0; zrho2 = rhosn* r1_rau087 zrho1 = ( rau0 - rhoi ) * r1_rau0; zrho2 = rhos * r1_rau0 88 88 ! masks 89 89 IF( iom_use('icemask' ) ) CALL iom_put( "icemask" , zmsk00 ) ! ice mask 0% … … 92 92 ! 93 93 ! general fields 94 IF( iom_use('icemass' ) ) CALL iom_put( "icemass", rhoi c * vt_i * zmsk00) ! Ice mass per cell area95 IF( iom_use('snwmass' ) ) CALL iom_put( "snwmass", rhos n * vt_s * zmsksn) ! Snow mass per cell area94 IF( iom_use('icemass' ) ) CALL iom_put( "icemass", rhoi * vt_i * zmsk00 ) ! Ice mass per cell area 95 IF( iom_use('snwmass' ) ) CALL iom_put( "snwmass", rhos * vt_s * zmsksn ) ! Snow mass per cell area 96 96 IF( iom_use('icepres' ) ) CALL iom_put( "icepres", zmsk00 ) ! Ice presence (1 or 0) 97 97 IF( iom_use('iceconc' ) ) CALL iom_put( "iceconc", at_i * zmsk00 ) ! ice concentration … … 115 115 ! salt 116 116 IF( iom_use('icesalt' ) ) CALL iom_put( "icesalt", sm_i * zmsk00 ) ! mean ice salinity 117 IF( iom_use('icesalm' ) ) CALL iom_put( "icesalm", SUM( sv_i, DIM = 3 ) * rhoi c* 1.0e-3 * zmsk00 ) ! Mass of salt in sea ice per cell area117 IF( iom_use('icesalm' ) ) CALL iom_put( "icesalm", SUM( sv_i, DIM = 3 ) * rhoi * 1.0e-3 * zmsk00 ) ! Mass of salt in sea ice per cell area 118 118 119 119 ! heat … … 164 164 ! trends 165 165 IF( iom_use('dmithd') ) CALL iom_put( "dmithd", - wfx_bog - wfx_bom - wfx_sum - wfx_sni - wfx_opw - wfx_lam - wfx_res ) ! Sea-ice mass change from thermodynamics 166 IF( iom_use('dmidyn') ) CALL iom_put( "dmidyn", - wfx_dyn + rhoi c * diag_trp_vi) ! Sea-ice mass change from dynamics(kg/m2/s)166 IF( iom_use('dmidyn') ) CALL iom_put( "dmidyn", - wfx_dyn + rhoi * diag_trp_vi ) ! Sea-ice mass change from dynamics(kg/m2/s) 167 167 IF( iom_use('dmiopw') ) CALL iom_put( "dmiopw", - wfx_opw ) ! Sea-ice mass change through growth in open water 168 168 IF( iom_use('dmibog') ) CALL iom_put( "dmibog", - wfx_bog ) ! Sea-ice mass change through basal growth … … 174 174 IF( iom_use('dmisub') ) CALL iom_put( "dmisub", - wfx_ice_sub ) ! Sea-ice mass change through sublimation 175 175 IF( iom_use('dmsspr') ) CALL iom_put( "dmsspr", - wfx_spr ) ! Snow mass change through snow fall 176 IF( iom_use('dmsssi') ) CALL iom_put( "dmsssi", wfx_sni*rhos n*r1_rhoic) ! Snow mass change through snow-to-ice conversion176 IF( iom_use('dmsssi') ) CALL iom_put( "dmsssi", wfx_sni*rhos*r1_rhoi ) ! Snow mass change through snow-to-ice conversion 177 177 IF( iom_use('dmsmel') ) CALL iom_put( "dmsmel", - wfx_snw_sum ) ! Snow mass change through melt 178 IF( iom_use('dmsdyn') ) CALL iom_put( "dmsdyn", - wfx_snw_dyn + rhos n * diag_trp_vs) ! Snow mass change through dynamics(kg/m2/s)178 IF( iom_use('dmsdyn') ) CALL iom_put( "dmsdyn", - wfx_snw_dyn + rhos * diag_trp_vs ) ! Snow mass change through dynamics(kg/m2/s) 179 179 180 180 ! Global ice diagnostics
Note: See TracChangeset
for help on using the changeset viewer.