Changeset 5394


Ignore:
Timestamp:
2015-06-10T14:04:53+02:00 (5 years ago)
Author:
jamrae
Message:

Corrected errors in USE statements.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5377_UKMO1_CICE_coupling_GSI7/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r5393 r5394  
    3939   USE ice_calendar, only: dt 
    4040# if defined key_cice4 
    41    USE ice_state, only: aice,aicen,uvel,vvel,vsno,vsnon,vice,vicen, & 
    42                         nt_Tsfc 
     41   USE ice_state, only: aice,aicen,uvel,vvel,vsno,vsnon,vice,vicen 
    4342   USE ice_flux, only: strax,stray,strocnx,strocny,frain,fsnow,  & 
    4443                sst,sss,uocn,vocn,ss_tltx,ss_tlty,fsalt_gbm,     & 
    4544                fresh_gbm,fhocn_gbm,fswthru_gbm,frzmlt,          & 
     45                flatn_f,fsurfn_f,fcondtopn_f,                    & 
     46                uatm,vatm,wind,fsw,flw,Tair,potT,Qa,rhoa,zlvl,   & 
     47                swvdr,swvdf,swidr,swidf,Tf 
     48   USE ice_therm_vertical, only: calc_Tsfc 
     49#else 
     50   USE ice_state, only: aice,aicen,uvel,nt_hpnd,trcrn,vvel,vsno,& 
     51                vsnon,vice,vicen,nt_Tsfc 
     52   USE ice_flux, only: strax,stray,strocnx,strocny,frain,fsnow,  & 
     53                sst,sss,uocn,vocn,ss_tltx,ss_tlty,fsalt_ai,     & 
     54                fresh_ai,fhocn_ai,fswthru_ai,frzmlt,          & 
    4655                flatn_f,fsurfn_f,fcondtopn_f,                    & 
    4756                uatm,vatm,wind,fsw,flw,Tair,potT,Qa,rhoa,zlvl,   & 
     
    5564!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
    5665 
    57    USE ice_therm_vertical, only: calc_Tsfc 
    58 #else 
    59    USE ice_state, only: aice,aicen,uvel,nt_hpnd,trcrn,vvel,vsno,& 
    60                 vsnon,vice,vicen 
    61    USE ice_flux, only: strax,stray,strocnx,strocny,frain,fsnow,  & 
    62                 sst,sss,uocn,vocn,ss_tltx,ss_tlty,fsalt_ai,     & 
    63                 fresh_ai,fhocn_ai,fswthru_ai,frzmlt,          & 
    64                 flatn_f,fsurfn_f,fcondtopn_f,                    & 
    65                 uatm,vatm,wind,fsw,flw,Tair,potT,Qa,rhoa,zlvl,   & 
    66                 swvdr,swvdf,swidr,swidf,Tf 
    6766   USE ice_therm_shared, only: calc_Tsfc, heat_capacity 
    6867   USE ice_shortwave, only: apeffn 
Note: See TracChangeset for help on using the changeset viewer.