Changeset 8017 for branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/MY_SRC/usrdef_hgr.F90
- Timestamp:
- 2017-05-10T16:34:42+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/MY_SRC/usrdef_hgr.F90
r7715 r8017 94 94 pphiv(ji,jj) = rn_phi0 + rn_e2deg * zvj 95 95 pphif(ji,jj) = rn_phi0 + rn_e2deg * zfj 96 ! !== Horizontal scale factors ==! (in meters) 96 97 ! e1 97 98 pe1t(ji,jj) = ra * rad * COS( rad * pphit(ji,jj) ) * rn_e1deg … … 106 107 END DO 107 108 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 108 113 ! 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 110 121 ! 111 122 IF( nn_timing == 1 ) CALL timing_stop('usr_def_hgr')
Note: See TracChangeset
for help on using the changeset viewer.