Changeset 5847 for branches/UKMO
- Timestamp:
- 2015-11-02T10:43:45+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
r5846 r5847 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_ww3108 107 INTEGER, PARAMETER :: jpr_hsig = 43 ! Hsig 109 108 INTEGER, PARAMETER :: jpr_phioc = 44 ! Wave=>ocean energy flux 110 109 INTEGER, PARAMETER :: jprcv = 44 ! total number of fields received 111 #else112 INTEGER, PARAMETER :: jprcv = 42 ! total number of fields received113 #ENDIF114 110 115 111 INTEGER, PARAMETER :: jps_fice = 1 ! ice fraction sent to the atmosphere … … 141 137 INTEGER, PARAMETER :: jps_e3t1st = 27 ! first level depth (vvl) 142 138 INTEGER, PARAMETER :: jps_fraqsr = 28 ! fraction of solar net radiation absorbed in the first ocean level 143 #if defined key_ww3144 139 INTEGER, PARAMETER :: jps_ficet = 29 ! total ice fraction 145 140 INTEGER, PARAMETER :: jps_ocxw = 30 ! currents on grid 1 146 141 INTEGER, PARAMETER :: jps_ocyw = 31 ! currents on grid 1 147 142 INTEGER, PARAMETER :: jpsnd = 31 ! total number of fields sended 148 #else149 INTEGER, PARAMETER :: jpsnd = 28 ! total number of fields sended150 #endif151 143 152 144 ! !!** namelist namsbc_cpl **
Note: See TracChangeset
for help on using the changeset viewer.