Changeset 11061
- Timestamp:
- 2019-05-28T12:52:38+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_fix_zemp_ice/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r11055 r11061 56 56 #if defined key_oasis3 57 57 USE mod_oasis, ONLY : OASIS_Sent, OASIS_ToRest, OASIS_SentOut, OASIS_ToRestOut 58 #else59 INTEGER :: OASIS_Sent = -160 INTEGER :: OASIS_SentOut = -161 INTEGER :: OASIS_ToRest = -162 INTEGER :: OASIS_ToRestOut = -163 58 #endif 64 59 … … 162 157 REAL(wp), PARAMETER :: dms_unit_conv = 1.0e+6 ! Coversion factor to get outgong DMS in standard units for coupling 163 158 ! i.e. specifically nmol/L (= umol/m3) 159 160 #if ! defined key_oasis3 161 ! Dummy variables to enable compilation when oasis3 is not being used 162 INTEGER :: OASIS_Sent = -1 163 INTEGER :: OASIS_SentOut = -1 164 INTEGER :: OASIS_ToRest = -1 165 INTEGER :: OASIS_ToRestOut = -1 166 #endif 164 167 165 168 ! !!** namelist namsbc_cpl ** … … 2294 2297 IF( ssnd(jps_fice)%laction ) CALL cpl_snd( jps_fice, isec, ztmp3, info ) 2295 2298 2299 #if defined key_lim2 || defined key_cice 2296 2300 ! If this coupling was successful then save ice fraction for use between coupling points. 2297 2301 ! This is needed for some calculations where the ice fraction at the last coupling point … … 2303 2307 ENDIF 2304 2308 ENDIF 2309 #endif 2305 2310 2306 2311 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.