Changeset 5847


Ignore:
Timestamp:
2015-11-02T10:43:45+01:00 (5 years ago)
Author:
jcastill
Message:

Removing key_ww3

File:
1 edited

Legend:

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

    r5846 r5847  
    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 
    108107   INTEGER, PARAMETER ::   jpr_hsig   = 43            ! Hsig 
    109108   INTEGER, PARAMETER ::   jpr_phioc  = 44            ! Wave=>ocean energy flux 
    110109   INTEGER, PARAMETER ::   jprcv      = 44            ! total number of fields received  
    111 #else 
    112    INTEGER, PARAMETER ::   jprcv      = 42            ! total number of fields received 
    113 #ENDIF 
    114110 
    115111   INTEGER, PARAMETER ::   jps_fice   =  1            ! ice fraction sent to the atmosphere 
     
    141137   INTEGER, PARAMETER ::   jps_e3t1st = 27            ! first level depth (vvl) 
    142138   INTEGER, PARAMETER ::   jps_fraqsr = 28            ! fraction of solar net radiation absorbed in the first ocean level 
    143 #if defined key_ww3 
    144139   INTEGER, PARAMETER ::   jps_ficet  = 29            ! total ice fraction  
    145140   INTEGER, PARAMETER ::   jps_ocxw   = 30            ! currents on grid 1  
    146141   INTEGER, PARAMETER ::   jps_ocyw   = 31            ! currents on grid 1  
    147142   INTEGER, PARAMETER ::   jpsnd      = 31            ! total number of fields sended 
    148 #else 
    149    INTEGER, PARAMETER ::   jpsnd      = 28            ! total number of fields sended 
    150 #endif 
    151143 
    152144   !                                                         !!** namelist namsbc_cpl ** 
Note: See TracChangeset for help on using the changeset viewer.