Changeset 359 for branches/iLoveclim/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

Timestamp:

06/10/22 17:11:04 (2 years ago)

Author:

aquiquet

Message:

Trunk merged to branch at revision 357

Location:

branches/iLoveclim

Files:

• . (modified) (1 prop)
• SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90 (modified) (6 diffs)

branches/iLoveclim/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

@@ -178 +178 @@
     ! lecture des pas de temps de sortie
     !------------------------------------
-    ! open(num_file,file='../'//trim(dirsource)//'/Fichiers-parametres/'//geoplace//'_TEMPS-NETCDF.dat')
-    ! open(num_file,file=trim(dirsource)//'/Fichiers-parametres/'//geoplace//'_TEMPS-NETCDF.dat',status='old')
-    open(num_file,file=trim(dirsource)//'/'//geoplace//'_TEMPS-NETCDF.dat',status='old')
+    ! open(num_file,file='../'//trim(dirsource)//'/Fichiers-parametres/TEMPS-NETCDF.dat')
+    open(num_file,file=trim(dirsource)//'/TEMPS-NETCDF.dat',status='old')
+
 
     ! passe les commentaires qui se terminent par une ligne de ~~~
@@ -236 +236 @@
     !-----------------------------------------------------------
 
-    ! open(num_file,file='../'//trim(dirsource)//'/Fichiers-parametres/'//geoplace//'_LISTE-VAR-NETCDF.dat')
-    ! open(num_file,file=trim(dirsource)//'/Fichiers-parametres/'//geoplace//'_LISTE-VAR-NETCDF.dat')
-    open(num_file,file=trim(dirsource)//'/'//geoplace//'_LISTE-VAR-NETCDF.dat')
+    ! open(num_file,file='../'//trim(dirsource)//'/Fichiers-parametres/LISTE-VAR-NETCDF.dat')
+    open(num_file,file=trim(dirsource)//'/LISTE-VAR-NETCDF.dat')
 
     !saute les commentaires
@@ -299 +298 @@
 
     !open(num_file,file='../'//trim(dirsource)//'/Netcdf-routines/Description_Variables.dat')
-    !open(num_file,file=trim(dirsource)//'/Netcdf-routines/Description_Variables.dat')
     open(num_file,file=trim(dirsource)//'/Description_Variables.dat')
 
@@ -410 +408 @@
     !aurel, tend in GRISLI is updated by Loveclim
     ifin = 0 ! tend in here should be tend_loveclim
-
+    
     ! boucle sur les numeros de variables 
     boucle_var: do i=1,ntab
@@ -670 +668 @@
 
     ! instructions
-    if (itracebug.eq.1)  call tracebug(' Entree dans routine  sortie_netcdf_cat')    
+    if (itracebug.eq.1)  call tracebug(' Entree dans routine  sortie_netcdf_cat')      
 
 
@@ -1229 +1227 @@
 
              ! open(72,file='../'//trim(dirsource)//'/Netcdf-routines/Description_Variables.dat')
-             !open(72,file=trim(dirsource)//'/Netcdf-routines/Description_Variables.dat')
              open(72,file=trim(dirsource)//'/Description_Variables.dat')