Changeset 8017


Ignore:
Timestamp:
2017-05-10T16:34:42+02:00 (3 years ago)
Author:
flavoni
Message:

add missing key iomput for GYRE_PISCES, and add needed values for ISOMIP when compiler checking bound activated

Location:
branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/CONFIG
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/CONFIG/GYRE_PISCES/cpp_GYRE_PISCES.fcm

    r7954 r8017  
    1 bld::tool::fppkeys   key_top key_mpp_mpi key_nosignedzero 
     1bld::tool::fppkeys key_top key_mpp_mpi key_nosignedzero key_iomput 
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/EXP00/namelist_cfg

    r7990 r8017  
    55&namusr_def    !   ISOMIP user defined namelist   
    66!----------------------------------------------------------------------- 
    7    ln_zco      = .false.      ! z-coordinate 
    87   ln_zps      = .true.       ! z-partial-step coordinate 
    9    ln_sco      = .false.      ! s-coordinate 
    108   rn_lam0     =   0.0        !  longitude of first raw and column T-point (jphgr_msh = 1) 
    119   rn_phi0     = -80.0        ! latitude  of first raw and column T-point (jphgr_msh = 1) 
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/MY_SRC/usrdef_hgr.F90

    r7715 r8017  
    9494            pphiv(ji,jj) = rn_phi0 + rn_e2deg * zvj 
    9595            pphif(ji,jj) = rn_phi0 + rn_e2deg * zfj 
     96     !                       !==  Horizontal scale factors  ==!   (in meters)  
    9697     ! e1 
    9798            pe1t(ji,jj) = ra * rad * COS( rad * pphit(ji,jj) ) * rn_e1deg 
     
    106107         END DO 
    107108      END DO 
     109      !                             ! NO reduction of grid size in some straits  
     110      ke1e2u_v = 0                  !    ==>> u_ & v_surfaces will be computed in dom_ghr routine 
     111      pe1e2u(:,:) = 0._wp           !    CAUTION: set to zero to avoid error with some compilers that 
     112      pe1e2v(:,:) = 0._wp           !             require an initialization of INTENT(out) arguments 
    108113      ! 
    109       kff = 0 ! Coriolis parameter calculated on the sphere 
     114      ! 
     115      !                       !==  Coriolis parameter  ==! 
     116      kff = 0                       ! Coriolis parameter calculated on the sphere 
     117      ! 
     118      ! 
     119      pff_f(:,:) = 0._wp            ! CAUTION: set to zero to avoid error with some compilers that 
     120      pff_t(:,:) = 0._wp            !             require an initialization of INTENT(out) arguments 
    110121      ! 
    111122      IF( nn_timing == 1 )  CALL timing_stop('usr_def_hgr') 
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/MY_SRC/usrdef_zgr.F90

    r7715 r8017  
    8080      ! type of vertical coordinate 
    8181      ! --------------------------- 
    82       ! already set in usrdef_nam.F90 by reading the namusr_def namelist except for ISF 
    83       ld_isfcav = .TRUE. 
     82      ! set in usrdef_nam.F90 by reading the namusr_def namelist except for ISF 
     83      ln_zco    = .FALSE.      ! z-partial-step coordinate 
     84      ln_zps    = .TRUE.       ! z-partial-step coordinate 
     85      ln_sco    = .FALSE.      ! s-coordinate 
     86      ld_isfcav = .TRUE.       ! ISF Ice Shelves Flag 
    8487      ! 
    8588      ! 
Note: See TracChangeset for help on using the changeset viewer.