New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13024 for utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/domhgr.F90 – NEMO

Ignore:
Timestamp:
2020-06-03T16:26:23+02:00 (4 years ago)
Author:
rblod
Message:

First version of new nesting tools merged with domaincfg, see ticket #2129

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/domhgr.F90

    r12414 r13024  
    434434      ! ------------------------------------------ 
    435435      ! The equator line must be the latitude coordinate axe 
    436 ! (PM) be carefull with nperio/jperio  
     436 !(PM) be carefull with nperio/jperio  
    437437      IF( jperio == 2 ) THEN 
    438438         znorme = SQRT( SUM( gphiu(:,2) * gphiu(:,2) ) ) / REAL( jpi ) 
     
    455455      ! 
    456456      INTEGER ::   inum   ! temporary logical unit 
     457      CHARACTER(LEN=135) :: coordinate_filename 
    457458      !!---------------------------------------------------------------------- 
    458459      ! 
     
    463464      ENDIF 
    464465      ! 
    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 ) 
    466472      ! 
    467473      CALL iom_get( inum, jpdom_data, 'glamt', glamt, lrowattr=ln_use_jattr ) 
Note: See TracChangeset for help on using the changeset viewer.