- Timestamp:
- 2015-02-11T16:15:11+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r5070 r5078 391 391 rdt_ice = nn_fsbc * rdttra(1) 392 392 r1_rdtice = 1._wp / rdt_ice 393 394 ! inverse of nlay_i and nlay_s 395 r1_nlay_i = 1._wp / REAL( nlay_i, wp ) 396 r1_nlay_s = 1._wp / REAL( nlay_s, wp ) 393 397 ! 394 398 END SUBROUTINE ice_run
Note: See TracChangeset
for help on using the changeset viewer.