- Timestamp:
- 2020-09-14T17:40:34+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@13382 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/DOM/domhgr.F90
r10068 r13463 31 31 USE iom ! I/O library 32 32 USE lib_mpp ! MPP library 33 USE lbclnk ! lateal boundary condition / mpp exchanges 33 34 USE timing ! Timing 34 35 … … 88 89 ENDIF 89 90 ! 90 !91 91 IF( ln_read_cfg ) THEN !== read in mesh_mask.nc file ==! 92 ! 92 93 IF(lwp) WRITE(numout,*) 93 94 IF(lwp) WRITE(numout,*) ' ==>>> read horizontal mesh in ', TRIM( cn_domcfg ), ' file' … … 112 113 ! 113 114 ENDIF 114 !115 115 ! !== Coriolis parameter ==! (if necessary) 116 116 ! … … 126 126 ENDIF 127 127 ENDIF 128 129 128 ! 130 129 ! !== associated horizontal metrics ==! … … 150 149 e2_e1u(:,:) = e2u(:,:) / e1u(:,:) 151 150 e1_e2v(:,:) = e1v(:,:) / e2v(:,:) 152 !153 151 ! 154 152 IF( ln_timing ) CALL timing_stop('dom_hgr') … … 189 187 CALL iom_open( cn_domcfg, inum ) 190 188 ! 191 CALL iom_get( inum, jpdom_ data, 'glamt', plamt, lrowattr=ln_use_jattr)192 CALL iom_get( inum, jpdom_ data, 'glamu', plamu, lrowattr=ln_use_jattr)193 CALL iom_get( inum, jpdom_ data, 'glamv', plamv, lrowattr=ln_use_jattr)194 CALL iom_get( inum, jpdom_ data, 'glamf', plamf, lrowattr=ln_use_jattr)195 ! 196 CALL iom_get( inum, jpdom_ data, 'gphit', pphit, lrowattr=ln_use_jattr)197 CALL iom_get( inum, jpdom_ data, 'gphiu', pphiu, lrowattr=ln_use_jattr)198 CALL iom_get( inum, jpdom_ data, 'gphiv', pphiv, lrowattr=ln_use_jattr)199 CALL iom_get( inum, jpdom_ data, 'gphif', pphif, lrowattr=ln_use_jattr)200 ! 201 CALL iom_get( inum, jpdom_ data, 'e1t' , pe1t , lrowattr=ln_use_jattr)202 CALL iom_get( inum, jpdom_ data, 'e1u' , pe1u , lrowattr=ln_use_jattr)203 CALL iom_get( inum, jpdom_ data, 'e1v' , pe1v , lrowattr=ln_use_jattr)204 CALL iom_get( inum, jpdom_ data, 'e1f' , pe1f , lrowattr=ln_use_jattr)205 ! 206 CALL iom_get( inum, jpdom_ data, 'e2t' , pe2t , lrowattr=ln_use_jattr)207 CALL iom_get( inum, jpdom_ data, 'e2u' , pe2u , lrowattr=ln_use_jattr)208 CALL iom_get( inum, jpdom_ data, 'e2v' , pe2v , lrowattr=ln_use_jattr)209 CALL iom_get( inum, jpdom_ data, 'e2f' , pe2f , lrowattr=ln_use_jattr)189 CALL iom_get( inum, jpdom_global, 'glamt', plamt, cd_type = 'T', psgn = 1._wp ) 190 CALL iom_get( inum, jpdom_global, 'glamu', plamu, cd_type = 'U', psgn = 1._wp ) 191 CALL iom_get( inum, jpdom_global, 'glamv', plamv, cd_type = 'V', psgn = 1._wp ) 192 CALL iom_get( inum, jpdom_global, 'glamf', plamf, cd_type = 'F', psgn = 1._wp ) 193 ! 194 CALL iom_get( inum, jpdom_global, 'gphit', pphit, cd_type = 'T', psgn = 1._wp ) 195 CALL iom_get( inum, jpdom_global, 'gphiu', pphiu, cd_type = 'U', psgn = 1._wp ) 196 CALL iom_get( inum, jpdom_global, 'gphiv', pphiv, cd_type = 'V', psgn = 1._wp ) 197 CALL iom_get( inum, jpdom_global, 'gphif', pphif, cd_type = 'F', psgn = 1._wp ) 198 ! 199 CALL iom_get( inum, jpdom_global, 'e1t' , pe1t , cd_type = 'T', psgn = 1._wp, kfill = jpfillcopy ) 200 CALL iom_get( inum, jpdom_global, 'e1u' , pe1u , cd_type = 'U', psgn = 1._wp, kfill = jpfillcopy ) 201 CALL iom_get( inum, jpdom_global, 'e1v' , pe1v , cd_type = 'V', psgn = 1._wp, kfill = jpfillcopy ) 202 CALL iom_get( inum, jpdom_global, 'e1f' , pe1f , cd_type = 'F', psgn = 1._wp, kfill = jpfillcopy ) 203 ! 204 CALL iom_get( inum, jpdom_global, 'e2t' , pe2t , cd_type = 'T', psgn = 1._wp, kfill = jpfillcopy ) 205 CALL iom_get( inum, jpdom_global, 'e2u' , pe2u , cd_type = 'U', psgn = 1._wp, kfill = jpfillcopy ) 206 CALL iom_get( inum, jpdom_global, 'e2v' , pe2v , cd_type = 'V', psgn = 1._wp, kfill = jpfillcopy ) 207 CALL iom_get( inum, jpdom_global, 'e2f' , pe2f , cd_type = 'F', psgn = 1._wp, kfill = jpfillcopy ) 210 208 ! 211 209 IF( iom_varid( inum, 'ff_f', ldstop = .FALSE. ) > 0 .AND. & 212 210 & iom_varid( inum, 'ff_t', ldstop = .FALSE. ) > 0 ) THEN 213 211 IF(lwp) WRITE(numout,*) ' Coriolis factor at f- and t-points read in ', TRIM( cn_domcfg ), ' file' 214 CALL iom_get( inum, jpdom_ data, 'ff_f' , pff_f , lrowattr=ln_use_jattr)215 CALL iom_get( inum, jpdom_ data, 'ff_t' , pff_t , lrowattr=ln_use_jattr)212 CALL iom_get( inum, jpdom_global, 'ff_f', pff_f, cd_type = 'F', psgn = 1._wp ) 213 CALL iom_get( inum, jpdom_global, 'ff_t', pff_t, cd_type = 'T', psgn = 1._wp ) 216 214 kff = 1 217 215 ELSE … … 221 219 IF( iom_varid( inum, 'e1e2u', ldstop = .FALSE. ) > 0 ) THEN 222 220 IF(lwp) WRITE(numout,*) ' e1e2u & e1e2v read in ', TRIM( cn_domcfg ), ' file' 223 CALL iom_get( inum, jpdom_ data, 'e1e2u' , pe1e2u , lrowattr=ln_use_jattr)224 CALL iom_get( inum, jpdom_ data, 'e1e2v' , pe1e2v , lrowattr=ln_use_jattr)221 CALL iom_get( inum, jpdom_global, 'e1e2u', pe1e2u, cd_type = 'U', psgn = 1._wp, kfill = jpfillcopy ) 222 CALL iom_get( inum, jpdom_global, 'e1e2v', pe1e2v, cd_type = 'V', psgn = 1._wp, kfill = jpfillcopy ) 225 223 ke1e2u_v = 1 226 224 ELSE
Note: See TracChangeset
for help on using the changeset viewer.