Changeset 9936

Timestamp:

2018-07-12T16:15:27+02:00 (5 years ago)

Author:

mathiot

Message:

variable declare twice

File:

• branches/UKMO/dev_isf_flx_UKESM_r9321/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90 (modified) (2 diffs)

branches/UKMO/dev_isf_flx_UKESM_r9321/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

@@ -95 +95 @@
       REAL(wp)                     ::   rmin
       REAL(wp)                     ::   zhk
-      REAL(wp)                     ::   zt_frz, zpress
       CHARACTER(len=256)           ::   cfisf , cvarzisf, cvarhisf   ! name for isf file
       CHARACTER(LEN=256)           :: cnameis                     ! name of iceshelf file
       CHARACTER (LEN=32)           :: cvarLeff                    ! variable name for efficient Length scale
-      INTEGER           ::   ios           ! Local integer output status for namelist read
+      INTEGER                      :: ios                         ! Local integer output status for namelist read
 
       REAL(wp), DIMENSION(:,:,:), POINTER :: zfwfisf3d, zqhcisf3d, zqlatisf3d
       REAL(wp), DIMENSION(:,:  ), POINTER :: zqhcisf2d
-      REAL(wp), DIMENSION(:,:  ), POINTER :: zt_frz, zdep ! freezing temperature (zt_frz) at depth (zdep) 
+      REAL(wp), DIMENSION(:,:  ), POINTER :: zt_frz, zdep         ! freezing temperature (zt_frz) at depth (zdep) 
       !
       !!---------------------------------------------------------------------
@@ -380 +379 @@
             zqhcisf3d(:,:,:) = 0.0_wp                         ! 3d heat content flux (W/m2)
             zqlatisf3d(:,:,:)= 0.0_wp                         ! 3d ice shelf melting latent heat flux (W/m2)
-            zqhcisf2d(:,:)   = fwfisf(:,:) * zt_frz * rcp     ! 2d heat content flux (W/m2)
+            zqhcisf2d(:,:)   = fwfisf(:,:) * zt_frz(:,:) * rcp     ! 2d heat content flux (W/m2)
 
             DO jj = 1,jpj