Changeset 9936


Ignore:
Timestamp:
2018-07-12T16:15:27+02:00 (2 years ago)
Author:
mathiot
Message:

variable declare twice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_isf_flx_UKESM_r9321/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r9864 r9936  
    9595      REAL(wp)                     ::   rmin 
    9696      REAL(wp)                     ::   zhk 
    97       REAL(wp)                     ::   zt_frz, zpress 
    9897      CHARACTER(len=256)           ::   cfisf , cvarzisf, cvarhisf   ! name for isf file 
    9998      CHARACTER(LEN=256)           :: cnameis                     ! name of iceshelf file 
    10099      CHARACTER (LEN=32)           :: cvarLeff                    ! variable name for efficient Length scale 
    101       INTEGER           ::   ios           ! Local integer output status for namelist read 
     100      INTEGER                      :: ios                         ! Local integer output status for namelist read 
    102101 
    103102      REAL(wp), DIMENSION(:,:,:), POINTER :: zfwfisf3d, zqhcisf3d, zqlatisf3d 
    104103      REAL(wp), DIMENSION(:,:  ), POINTER :: zqhcisf2d 
    105       REAL(wp), DIMENSION(:,:  ), POINTER :: zt_frz, zdep ! freezing temperature (zt_frz) at depth (zdep)  
     104      REAL(wp), DIMENSION(:,:  ), POINTER :: zt_frz, zdep         ! freezing temperature (zt_frz) at depth (zdep)  
    106105      ! 
    107106      !!--------------------------------------------------------------------- 
     
    380379            zqhcisf3d(:,:,:) = 0.0_wp                         ! 3d heat content flux (W/m2) 
    381380            zqlatisf3d(:,:,:)= 0.0_wp                         ! 3d ice shelf melting latent heat flux (W/m2) 
    382             zqhcisf2d(:,:)   = fwfisf(:,:) * zt_frz * rcp     ! 2d heat content flux (W/m2) 
     381            zqhcisf2d(:,:)   = fwfisf(:,:) * zt_frz(:,:) * rcp     ! 2d heat content flux (W/m2) 
    383382 
    384383            DO jj = 1,jpj 
Note: See TracChangeset for help on using the changeset viewer.