Changeset 5836 for trunk/NEMOGCM/NEMO/OPA_SRC/ICB/icbthm.F90
- Timestamp:
- 2015-10-26T15:49:40+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/ICB/icbthm.F90
r5215 r5836 156 156 ! use tmask rather than tmask_i when dealing with icebergs 157 157 IF( tmask(ii,ij,1) /= 0._wp ) THEN ! Add melting to the grid and field diagnostics 158 z1_e1e2 = 1._wp /e1e2t(ii,ij) * this%mass_scaling158 z1_e1e2 = r1_e1e2t(ii,ij) * this%mass_scaling 159 159 z1_dt_e1e2 = z1_dt * z1_e1e2 160 160 zmelt = ( zdM - ( zdMbitsE - zdMbitsM ) ) * z1_dt ! kg/s … … 195 195 ! 196 196 ELSE ! Diagnose mass distribution on grid 197 z1_e1e2 = 1._wp /e1e2t(ii,ij) * this%mass_scaling197 z1_e1e2 = r1_e1e2t(ii,ij) * this%mass_scaling 198 198 CALL icb_dia_size( ii, ij, zWn, zLn, zAbits, & 199 199 & this%mass_scaling, zMnew, znMbits, z1_e1e2)
Note: See TracChangeset
for help on using the changeset viewer.