- Timestamp:
- 2020-06-03T16:26:23+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/domhgr.F90
r12414 r13024 434 434 ! ------------------------------------------ 435 435 ! The equator line must be the latitude coordinate axe 436 !(PM) be carefull with nperio/jperio436 !(PM) be carefull with nperio/jperio 437 437 IF( jperio == 2 ) THEN 438 438 znorme = SQRT( SUM( gphiu(:,2) * gphiu(:,2) ) ) / REAL( jpi ) … … 455 455 ! 456 456 INTEGER :: inum ! temporary logical unit 457 CHARACTER(LEN=135) :: coordinate_filename 457 458 !!---------------------------------------------------------------------- 458 459 ! … … 463 464 ENDIF 464 465 ! 465 CALL iom_open( 'coordinates', inum ) 466 IF (ln_read_cfg) THEN 467 coordinate_filename=TRIM(cn_domcfg) 468 ELSE 469 coordinate_filename='coordinates' 470 ENDIF 471 CALL iom_open( coordinate_filename, inum ) 466 472 ! 467 473 CALL iom_get( inum, jpdom_data, 'glamt', glamt, lrowattr=ln_use_jattr )
Note: See TracChangeset
for help on using the changeset viewer.