Changeset 5849


Ignore:
Timestamp:
2015-11-02T11:35:05+01:00 (5 years ago)
Author:
jcastill
Message:

Changes to allow merging with mslp branch

File:
1 edited

Legend:

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

    r5847 r5849  
    105105   INTEGER, PARAMETER ::   jpr_e3t1st = 41            ! first T level thickness  
    106106   INTEGER, PARAMETER ::   jpr_fraqsr = 42            ! fraction of solar net radiation absorbed in the first ocean level 
     107#if defined key_ww3 
    107108   INTEGER, PARAMETER ::   jpr_hsig   = 43            ! Hsig 
    108109   INTEGER, PARAMETER ::   jpr_phioc  = 44            ! Wave=>ocean energy flux 
    109110   INTEGER, PARAMETER ::   jprcv      = 44            ! total number of fields received  
     111#else 
     112   INTEGER, PARAMETER ::   jprcv      = 42            ! total number of fields received  
     113#endif 
    110114 
    111115   INTEGER, PARAMETER ::   jps_fice   =  1            ! ice fraction sent to the atmosphere 
     
    137141   INTEGER, PARAMETER ::   jps_e3t1st = 27            ! first level depth (vvl) 
    138142   INTEGER, PARAMETER ::   jps_fraqsr = 28            ! fraction of solar net radiation absorbed in the first ocean level 
     143#if defined key_ww3 
    139144   INTEGER, PARAMETER ::   jps_ficet  = 29            ! total ice fraction  
    140145   INTEGER, PARAMETER ::   jps_ocxw   = 30            ! currents on grid 1  
    141146   INTEGER, PARAMETER ::   jps_ocyw   = 31            ! currents on grid 1  
    142147   INTEGER, PARAMETER ::   jpsnd      = 31            ! total number of fields sended 
     148#else 
     149   INTEGER, PARAMETER ::   jpsnd      = 28            ! total number of fields sended 
     150#endif 
    143151 
    144152   !                                                         !!** namelist namsbc_cpl ** 
     
    228236         &                  sn_snd_ifrac, sn_snd_crtw ,                                               & 
    229237         &                  sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau  , sn_rcv_dqnsdt, sn_rcv_qsr,      & 
     238         &                  sn_rcv_hsig, sn_rcv_phioc ,                                               & 
    230239         &                  sn_rcv_qns , sn_rcv_emp   , sn_rcv_rnf  , sn_rcv_cal   , sn_rcv_iceflx,   & 
    231          &                  sn_rcv_co2 , sn_rcv_hsig  , sn_rcv_phioc, nn_cplmodel  , ln_usecplmask 
     240         &                  sn_rcv_co2 , nn_cplmodel  , ln_usecplmask 
    232241      !!--------------------------------------------------------------------- 
    233242      ! 
Note: See TracChangeset for help on using the changeset viewer.