Changeset 5849 for branches/UKMO
- Timestamp:
- 2015-11-02T11:35:05+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_ww3_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5847 r5849 105 105 INTEGER, PARAMETER :: jpr_e3t1st = 41 ! first T level thickness 106 106 INTEGER, PARAMETER :: jpr_fraqsr = 42 ! fraction of solar net radiation absorbed in the first ocean level 107 #if defined key_ww3 107 108 INTEGER, PARAMETER :: jpr_hsig = 43 ! Hsig 108 109 INTEGER, PARAMETER :: jpr_phioc = 44 ! Wave=>ocean energy flux 109 110 INTEGER, PARAMETER :: jprcv = 44 ! total number of fields received 111 #else 112 INTEGER, PARAMETER :: jprcv = 42 ! total number of fields received 113 #endif 110 114 111 115 INTEGER, PARAMETER :: jps_fice = 1 ! ice fraction sent to the atmosphere … … 137 141 INTEGER, PARAMETER :: jps_e3t1st = 27 ! first level depth (vvl) 138 142 INTEGER, PARAMETER :: jps_fraqsr = 28 ! fraction of solar net radiation absorbed in the first ocean level 143 #if defined key_ww3 139 144 INTEGER, PARAMETER :: jps_ficet = 29 ! total ice fraction 140 145 INTEGER, PARAMETER :: jps_ocxw = 30 ! currents on grid 1 141 146 INTEGER, PARAMETER :: jps_ocyw = 31 ! currents on grid 1 142 147 INTEGER, PARAMETER :: jpsnd = 31 ! total number of fields sended 148 #else 149 INTEGER, PARAMETER :: jpsnd = 28 ! total number of fields sended 150 #endif 143 151 144 152 ! !!** namelist namsbc_cpl ** … … 228 236 & sn_snd_ifrac, sn_snd_crtw , & 229 237 & sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau , sn_rcv_dqnsdt, sn_rcv_qsr, & 238 & sn_rcv_hsig, sn_rcv_phioc , & 230 239 & 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_usecplmask240 & sn_rcv_co2 , nn_cplmodel , ln_usecplmask 232 241 !!--------------------------------------------------------------------- 233 242 !
Note: See TracChangeset
for help on using the changeset viewer.