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 7861 for trunk/NEMOGCM – NEMO

Changeset 7861 for trunk/NEMOGCM


Ignore:
Timestamp:
2017-03-31T15:45:05+02:00 (7 years ago)
Author:
clem
Message:

debug LIM3+BDY for taking into account the directory where bdy files are stored

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r7857 r7861  
    674674               ! Test for types of ice input (lim2 or lim3)  
    675675               ! Build file name to find dimensions  
    676                clname=TRIM(bn_a_i%clname) 
     676               clname=TRIM( cn_dir )//TRIM(bn_a_i%clname) 
    677677               IF( .NOT. bn_a_i%ln_clim ) THEN    
    678                                                   WRITE(clname, '(a,"_y",i4.4)' ) TRIM( bn_a_i%clname ), nyear    ! add year 
    679                   IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"m" ,i2.2)' ) TRIM( clname        ), nmonth   ! add month 
     678                                                  WRITE(clname, '(a,"_y",i4.4)' ) TRIM( clname ), nyear    ! add year 
     679                  IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"m" ,i2.2)' ) TRIM( clname ), nmonth   ! add month 
    680680               ELSE 
    681                   IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"_m",i2.2)' ) TRIM( bn_a_i%clname ), nmonth   ! add month 
     681                  IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"_m",i2.2)' ) TRIM( clname ), nmonth   ! add month 
    682682               ENDIF 
    683683               IF( bn_a_i%cltype == 'daily' .OR. bn_a_i%cltype(1:4) == 'week' ) & 
    684                &                                  WRITE(clname, '(a,"d" ,i2.2)' ) TRIM( clname        ), nday     ! add day 
     684               &                                  WRITE(clname, '(a,"d" ,i2.2)' ) TRIM( clname ), nday     ! add day 
    685685               ! 
    686686               CALL iom_open  ( clname, inum ) 
Note: See TracChangeset for help on using the changeset viewer.