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 3561 for branches/2012/dev_r3379_CMCC6_topbfm/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90 – NEMO

Ignore:
Timestamp:
2012-11-15T16:18:40+01:00 (10 years ago)
Author:
vichi
Message:

Corrected bug in directory of ocean input files

It was not possible to read ocean input files from an external directory.
Also updated the header of ocean.output with the list of institutes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3379_CMCC6_topbfm/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

    r3294 r3561  
    433433      ! Open file for each variable to get his number of dimension 
    434434      DO ifpr = 1, jfld 
    435          CALL iom_open( slf_d(ifpr)%clname, inum ) 
     435         CALL iom_open( TRIM( cn_dir )//TRIM( slf_d(ifpr)%clname ), inum ) 
    436436         idv   = iom_varid( inum , slf_d(ifpr)%clvar )  ! id of the variable sdjf%clvar 
    437437         idimv = iom_file ( inum )%ndims(idv)             ! number of dimension for variable sdjf%clvar 
Note: See TracChangeset for help on using the changeset viewer.