Changeset 13779
- Timestamp:
- 2020-11-11T14:59:49+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.3_GC_couple_pkg/src/OCE/SBC/sbccpl.F90
r13771 r13779 1129 1129 INTEGER :: isec ! number of seconds since nit000 (assuming rdttra did not change since nit000) 1130 1130 INTEGER :: ikchoix 1131 REAL(wp), DIMENSION(jpi,jpj) :: ztx2, zty2 1131 1132 REAL(wp) :: zcumulneg, zcumulpos ! temporary scalars 1132 1133 REAL(wp) :: zcoef ! temporary scalar 1133 1134 REAL(wp) :: zrhoa = 1.22 ! Air density kg/m3 1134 1135 REAL(wp) :: zcdrag = 1.5e-3 ! drag coefficient 1135 REAL(wp), DIMENSION(jpi,jpj) :: ztx2, zty21136 1136 REAL(wp) :: zzx, zzy ! temporary variables 1137 1137 REAL(wp), DIMENSION(jpi,jpj) :: ztx, zty, zmsk, zemp, zqns, zqsr, zcloud_fra
Note: See TracChangeset
for help on using the changeset viewer.