- Timestamp:
- 2015-06-04T16:12:19+02:00 (9 years ago)
- Location:
- branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/TRD
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/TRD/trd_oce.F90
- Property svn:keywords set to Id
r4990 r5350 76 76 !!---------------------------------------------------------------------- 77 77 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 78 !! $Id : trd_oce.F90 3318 2012-02-25 15:50:01Z gm$78 !! $Id$ 79 79 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 80 80 !!====================================================================== -
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/TRD/trddyn.F90
- Property svn:keywords set to Id
r4990 r5350 40 40 !!---------------------------------------------------------------------- 41 41 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 42 !! $Id : trddyn.F90 3325 2012-03-12 14:44:43Z gm$42 !! $Id$ 43 43 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 44 44 !!---------------------------------------------------------------------- -
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/TRD/trdglo.F90
- Property svn:keywords set to Id
r4990 r5350 56 56 !!---------------------------------------------------------------------- 57 57 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 58 !! $Id : trdglo.F90 3325 2012-03-12 14:44:43Z gm$58 !! $Id$ 59 59 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 60 60 !!---------------------------------------------------------------------- -
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90
- Property svn:keywords set to Id
r4990 r5350 30 30 !!---------------------------------------------------------------------- 31 31 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 32 !! $Id : trdini.F90 3329 2012-03-16 12:22:15Z gm$32 !! $Id$ 33 33 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 34 34 !!---------------------------------------------------------------------- -
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90
- Property svn:keywords set to Id
r4990 r5350 44 44 !!---------------------------------------------------------------------- 45 45 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 46 !! $Id : trdken.F90 3329 2012-03-16 12:22:15Z gm$46 !! $Id$ 47 47 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 48 48 !!---------------------------------------------------------------------- -
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90
- Property svn:keywords set to Id
r4990 r5350 77 77 !!---------------------------------------------------------------------- 78 78 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 79 !! $Id : trdmxl.F90 3318 2012-02-25 15:50:01Z gm$79 !! $Id$ 80 80 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 81 81 !!---------------------------------------------------------------------- -
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_oce.F90
- Property svn:keywords set to Id
r4990 r5350 83 83 !!---------------------------------------------------------------------- 84 84 !! NEMO/OPA 4.0 , NEMO Consortium (2011) 85 !! $Id :$85 !! $Id$ 86 86 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 87 87 !!---------------------------------------------------------------------- -
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90
- Property svn:keywords set to Id
r4990 r5350 27 27 !!--------------------------------------------------------------------------------- 28 28 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 29 !! $Id : $29 !! $Id$ 30 30 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 31 31 !!--------------------------------------------------------------------------------- … … 43 43 INTEGER :: jk ! loop indice 44 44 CHARACTER(LEN=20) :: clkt ! ocean time-step deine as a character 45 CHARACTER(LEN=50) :: clname ! ice output restart file name 45 CHARACTER(LEN=50) :: clname ! output restart file name 46 CHARACTER(LEN=256) :: clpath ! full path to restart file 46 47 !!-------------------------------------------------------------------------------- 47 48 … … 56 57 ! create the file 57 58 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_trdrst_out) 59 clpath = TRIM(cn_ocerst_outdir) 60 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 58 61 IF(lwp) THEN 59 62 WRITE(numout,*) … … 67 70 ENDIF 68 71 69 CALL iom_open( clname, nummxlw, ldwrt = .TRUE., kiolib = jprstlib )72 CALL iom_open( TRIM(clpath)//TRIM(clname), nummxlw, ldwrt = .TRUE., kiolib = jprstlib ) 70 73 ENDIF 71 74 … … 133 136 INTEGER :: jlibalt = jprstlib 134 137 LOGICAL :: llok 138 CHARACTER(LEN=256) :: clpath ! full path to restart file 135 139 !!----------------------------------------------------------------------------- 136 140 … … 140 144 WRITE(numout,*) ' ~~~~~~~~~~~~~~~~' 141 145 ENDIF 146 147 clpath = TRIM(cn_ocerst_indir) 148 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 149 142 150 IF ( jprstlib == jprstdimg ) THEN 143 151 ! eventually read netcdf file (monobloc) for restarting on different number of processors 144 152 ! if {cn_trdrst_in}.nc exists, then set jlibalt to jpnf90 145 INQUIRE( FILE = TRIM(c n_trdrst_in)//'.nc', EXIST = llok )153 INQUIRE( FILE = TRIM(clpath)//TRIM(cn_trdrst_in)//'.nc', EXIST = llok ) 146 154 IF ( llok ) THEN ; jlibalt = jpnf90 147 155 ELSE ; jlibalt = jprstlib … … 149 157 ENDIF 150 158 151 CALL iom_open( cn_trdrst_in, inum, kiolib = jlibalt )159 CALL iom_open( TRIM(clpath)//TRIM(cn_trdrst_in), inum, kiolib = jlibalt ) 152 160 153 161 IF( ln_trdmxl_instant ) THEN -
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90
- Property svn:keywords set to Id
r4990 r5350 41 41 !!---------------------------------------------------------------------- 42 42 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 43 !! $Id : trdtra.F90 3318 2012-02-25 15:50:01Z gm$43 !! $Id$ 44 44 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 45 45 !!---------------------------------------------------------------------- -
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/TRD/trdtrc.F90
- Property svn:keywords set to Id
r4990 r5350 18 18 !!---------------------------------------------------------------------- 19 19 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 20 !! $Id : trdtrc.F90 2715 2011-03-30 15:58:35Z rblod$20 !! $Id$ 21 21 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 22 22 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.