Changeset 4730 for branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
- Timestamp:
- 2014-07-25T09:39:23+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r4688 r4730 115 115 116 116 CALL lim_istate_init ! reading the initials parameters of the ice 117 118 # if defined key_coupled119 albege(:,:) = 0.8 * tms(:,:)120 # endif121 117 122 118 ! surface temperature
Note: See TracChangeset
for help on using the changeset viewer.