Changeset 13779 for NEMO/branches

Timestamp:

2020-11-11T14:59:49+01:00 (3 years ago)

Author:

dancopsey

Message:

Avoiding conflicts with icesheet_and_river_coupling branch

File:

• NEMO/branches/UKMO/NEMO_4.0.3_GC_couple_pkg/src/OCE/SBC/sbccpl.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.3_GC_couple_pkg/src/OCE/SBC/sbccpl.F90

@@ -1129 +1129 @@
       INTEGER  ::   isec                   ! number of seconds since nit000 (assuming rdttra did not change since nit000)
       INTEGER  ::   ikchoix
+      REAL(wp), DIMENSION(jpi,jpj) ::   ztx2, zty2
       REAL(wp) ::   zcumulneg, zcumulpos   ! temporary scalars     
       REAL(wp) ::   zcoef                  ! temporary scalar
       REAL(wp) ::   zrhoa  = 1.22          ! Air density kg/m3
       REAL(wp) ::   zcdrag = 1.5e-3        ! drag coefficient
-      REAL(wp), DIMENSION(jpi,jpj) ::   ztx2, zty2
       REAL(wp) ::   zzx, zzy               ! temporary variables
       REAL(wp), DIMENSION(jpi,jpj) ::   ztx, zty, zmsk, zemp, zqns, zqsr, zcloud_fra