Changeset 11062


Ignore:
Timestamp:
2019-05-28T13:06:01+02:00 (17 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_10681/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r11054 r11062  
    5757#if defined key_oasis3 
    5858   USE mod_oasis, ONLY : OASIS_Sent, OASIS_ToRest, OASIS_SentOut, OASIS_ToRestOut 
    59 #else 
    60    INTEGER                    ::   OASIS_Sent        = -1 
    61    INTEGER                    ::   OASIS_SentOut     = -1 
    62    INTEGER                    ::   OASIS_ToRest      = -1 
    63    INTEGER                    ::   OASIS_ToRestOut   = -1 
    6459#endif 
    6560 
     
    164159   REAL(wp), PARAMETER :: dms_unit_conv = 1.0e+6      ! Coversion factor to get outgong DMS in standard units for coupling 
    165160                                                 ! i.e. specifically nmol/L (= umol/m3) 
     161 
     162#if ! defined key_oasis3 
     163   ! Dummy variables to enable compilation when oasis3 is not being used 
     164   INTEGER                    ::   OASIS_Sent        = -1 
     165   INTEGER                    ::   OASIS_SentOut     = -1 
     166   INTEGER                    ::   OASIS_ToRest      = -1 
     167   INTEGER                    ::   OASIS_ToRestOut   = -1 
     168#endif 
    166169 
    167170   !                                                         !!** namelist namsbc_cpl ** 
     
    23672370         IF( ssnd(jps_fice)%laction )   CALL cpl_snd( jps_fice, isec, ztmp3, info ) 
    23682371 
     2372#if defined key_lim2 || defined key_cice 
    23692373         ! If this coupling was successful then save ice fraction for use between coupling points. 
    23702374         ! This is needed for some calculations where the ice fraction at the last coupling point 
     
    23762380           ENDIF 
    23772381         ENDIF 
     2382#endif 
    23782383          
    23792384      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.