Changeset 11061


Ignore:
Timestamp:
2019-05-28T12:52:38+02:00 (16 months ago)
Author:
dancopsey
Message:

Fix compile issues for when I am running GO6+MEDUSA.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_fix_zemp_ice/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r11055 r11061  
    5656#if defined key_oasis3 
    5757   USE mod_oasis, ONLY : OASIS_Sent, OASIS_ToRest, OASIS_SentOut, OASIS_ToRestOut 
    58 #else 
    59    INTEGER                    ::   OASIS_Sent        = -1 
    60    INTEGER                    ::   OASIS_SentOut     = -1 
    61    INTEGER                    ::   OASIS_ToRest      = -1 
    62    INTEGER                    ::   OASIS_ToRestOut   = -1 
    6358#endif 
    6459 
     
    162157   REAL(wp), PARAMETER :: dms_unit_conv = 1.0e+6      ! Coversion factor to get outgong DMS in standard units for coupling 
    163158                                                 ! 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 
    164167 
    165168   !                                                         !!** namelist namsbc_cpl ** 
     
    22942297         IF( ssnd(jps_fice)%laction )   CALL cpl_snd( jps_fice, isec, ztmp3, info ) 
    22952298 
     2299#if defined key_lim2 || defined key_cice 
    22962300         ! If this coupling was successful then save ice fraction for use between coupling points. 
    22972301         ! This is needed for some calculations where the ice fraction at the last coupling point 
     
    23032307           ENDIF 
    23042308         ENDIF 
     2309#endif 
    23052310          
    23062311      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.