Ignore:
Timestamp:
2017-05-10T16:39:18+02:00 (4 years ago)
Author:
flavoni
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/MY_SRC/usrdef_hgr.F90

    r7715 r8018  
    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') 
Note: See TracChangeset for help on using the changeset viewer.