Changeset 3361 for branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM
- Timestamp:
- 2012-04-18T14:29:02+02:00 (12 years ago)
- Location:
- branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbdia.F90
r3359 r3361 482 482 conv_melt (ki,kj) = conv_melt (ki,kj) + pdMv * pz1_dt_e1e2 ! kg/m2/s 483 483 heat_to_ocean_net = heat_to_ocean_net + pheat * pmass_scale * berg_dt ! J 484 IF( mnew <= 0._wp ) nbergs_melted = nbergs_melted + 1 ! Delete the berg if completely melted484 IF( pmnew <= 0._wp ) nbergs_melted = nbergs_melted + 1 ! Delete the berg if completely melted 485 485 486 486 END SUBROUTINE melt_budget -
branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90
r3359 r3361 233 233 INTEGER, INTENT( in ) :: kt 234 234 ! Local variables 235 INTEGER ,:: ix_dim, iy_dim, ik_dim, in_dim235 INTEGER :: ix_dim, iy_dim, ik_dim, in_dim 236 236 INTEGER :: jn 237 237 CHARACTER(len=80) :: cl_filename
Note: See TracChangeset
for help on using the changeset viewer.