Changeset 3561 for branches/2012/dev_r3379_CMCC6_topbfm/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

Timestamp:

2012-11-15T16:18:40+01:00 (11 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:

• branches/2012/dev_r3379_CMCC6_topbfm/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90 (modified) (1 diff)

branches/2012/dev_r3379_CMCC6_topbfm/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

@@ -433 +433 @@
       ! Open file for each variable to get his number of dimension
       DO ifpr = 1, jfld
-         CALL iom_open( slf_d(ifpr)%clname, inum )
+         CALL iom_open( TRIM( cn_dir )//TRIM( slf_d(ifpr)%clname ), inum )
          idv   = iom_varid( inum , slf_d(ifpr)%clvar )  ! id of the variable sdjf%clvar
          idimv = iom_file ( inum )%ndims(idv)             ! number of dimension for variable sdjf%clvar