- Timestamp:
- 2016-08-26T15:17:07+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
r6717 r6894 161 161 & pe1t , pe1u , pe1v , pe1f , & ! scale factors (required) 162 162 & pe2t , pe2u , pe2v , pe2f , & 163 & ke1e2u_v , pe 2_e1u, pe1_e2v) ! u- & v-surfaces (if gridsize reduction in some straits)163 & ke1e2u_v , pe1e2u , pe1e2v ) ! u- & v-surfaces (if gridsize reduction in some straits) 164 164 !!--------------------------------------------------------------------- 165 165 !! *** ROUTINE hgr_read *** … … 175 175 REAL(wp), DIMENSION(:,:), INTENT(out) :: pe2t, pe2u, pe2v, pe2f ! j-scale factors 176 176 INTEGER , INTENT(out) :: ke1e2u_v ! =1 u- & v-surfaces read here, =0 otherwise 177 REAL(wp), DIMENSION(:,:), INTENT(out) :: pe 2_e1u, pe1_e2v! u- & v-surfaces (if found in file)177 REAL(wp), DIMENSION(:,:), INTENT(out) :: pe1e2u, pe1e2v ! u- & v-surfaces (if found in file) 178 178 ! 179 179 INTEGER :: inum ! logical unit … … 211 211 & iom_varid( inum, 'ff_t', ldstop = .FALSE. ) > 0 ) THEN 212 212 IF(lwp) WRITE(numout,*) ' Coriolis factor at f- and t-points read in domain_cfg file' 213 CALL iom_get( inum, jpdom_data, 'ff_f' , ff_f , lrowattr=ln_use_jattr )214 CALL iom_get( inum, jpdom_data, 'ff_t' , ff_t , lrowattr=ln_use_jattr )213 CALL iom_get( inum, jpdom_data, 'ff_f' , pff_f , lrowattr=ln_use_jattr ) 214 CALL iom_get( inum, jpdom_data, 'ff_t' , pff_t , lrowattr=ln_use_jattr ) 215 215 kff = 1 216 216 ELSE … … 220 220 IF( iom_varid( inum, 'e1e2u', ldstop = .FALSE. ) > 0 ) THEN 221 221 IF(lwp) WRITE(numout,*) ' e1e2u & e1e2v read in domain_cfg file' 222 CALL iom_get( inum, jpdom_data, 'e1e2u' , e1e2u , lrowattr=ln_use_jattr )223 CALL iom_get( inum, jpdom_data, 'e1e2v' , e1e2v , lrowattr=ln_use_jattr )222 CALL iom_get( inum, jpdom_data, 'e1e2u' , pe1e2u , lrowattr=ln_use_jattr ) 223 CALL iom_get( inum, jpdom_data, 'e1e2v' , pe1e2v , lrowattr=ln_use_jattr ) 224 224 ke1e2u_v = 1 225 225 ELSE
Note: See TracChangeset
for help on using the changeset viewer.