- Timestamp:
- 2013-02-10T08:27:33+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90
r3613 r3784 35 35 USE in_out_manager ! I/O manager 36 36 USE lib_mpp ! MPP library 37 #if defined key_lim338 USE ice ! LIM339 #endif40 37 #if defined key_lim2 41 38 USE ice_2 ! LIM2 … … 985 982 REAL(wp) :: zincwgt ! IAU weight for current time step 986 983 987 #if defined key_lim 3 || defined key_lim2984 #if defined key_lim2 988 985 REAL(wp), DIMENSION(jpi,jpj) :: zofrld, zohicif, zseaicendg, zhicifinc ! LIM 989 986 REAL(wp) :: zhicifmin=0.5_wp ! ice minimum depth in metres … … 1011 1008 ENDIF 1012 1009 1013 #if defined key_lim 3 || defined key_lim21010 #if defined key_lim2 1014 1011 1015 1012 zofrld(:,:)=frld(:,:) … … 1070 1067 neuler = 0 ! Force Euler forward step 1071 1068 1072 #if defined key_lim 3 || defined key_lim21069 #if defined key_lim2 1073 1070 1074 1071 zofrld(:,:)=frld(:,:) … … 1120 1117 ENDIF 1121 1118 1122 !#if defined key_lim 3 || defined key_lim2 || defined key_cice1119 !#if defined key_lim2 || defined key_cice 1123 1120 ! 1124 1121 ! IF (ln_seaicebal ) THEN
Note: See TracChangeset
for help on using the changeset viewer.