Changeset 5049


Ignore:
Timestamp:
2015-02-02T12:02:16+01:00 (6 years ago)
Author:
vancop
Message:

compilation bugs

Location:
branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

    r5048 r5049  
    193193      !  Clem - je sais pas encore dans quelle namelist les mettre, ca depend des chgts liés à bdy 
    194194      nn_hibnd  = 2                !  thickness category boundaries: tanh function (1) h^(-alpha) (2) 
    195       rn_himean = 2.5              !  mean thickness of the domain (used to compute category boundaries, nn_hibnd = 2 only) 
     195      rn_hibnd = 2.5              !  mean thickness of the domain (used to compute category boundaries, nn_hibnd = 2 only) 
    196196 
    197197      hi_max(:) = 0._wp 
    198198 
    199       SELECT CASE ( nn_hbnd  )        
     199      SELECT CASE ( nn_hibnd  )        
    200200                                   !---------------------- 
    201201         CASE (1)                  ! tanh function (CICE) 
     
    217217         zalpha = 0.05             ! exponent of the transform function 
    218218 
    219          zhmax  = 3.*rn_himean 
     219         zhmax  = 3.*rn_hibnd 
    220220 
    221221         DO jl = 1, jpl  
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r5048 r5049  
    9292      ! 
    9393      REAL(wp) :: zvi_b, zsmv_b, zei_b, zfs_b, zfw_b, zft_b  
     94      REAL(wp) :: zda 
    9495      ! 
    9596      REAL(wp), POINTER, DIMENSION(:,:) ::  zqsr, zqns 
     
    480481      ! 5.X) Lateral melting 
    481482      !---------------------------------- 
    482       !!! declare dh_i_melt (ok), dh_i_melt_1d (ok), nbplm (ok), nplm (ok), zda(ok) 
    483  
    484483      IF ( ( ( nn_monocat .EQ. 1 ) .OR. ( nn_monocat .EQ. 4 ) ) .AND. ( jpl == 1 ) ) THEN 
    485484 
Note: See TracChangeset for help on using the changeset viewer.