Changeset 10 for trunk/SOURCES


Ignore:
Timestamp:
02/12/15 16:09:32 (9 years ago)
Author:
dumas
Message:

Modification chemin dirnameinp et dirsource pour lancer GRISLI depuis le répertoire RESULTATS/ma_simule. Lecture du fichier param dans le repertoire de la simulation avec nom standard type hemin40_param_list.dat. Pour le moment seule la version Hemin-40 est utilisable.

Location:
trunk/SOURCES
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/Hemin40_files/paradim-hemin40_mod.f90

    r4 r10  
    1515 
    1616  character(len=7), parameter :: geoplace='hemin40'    ! geoplace 
    17   character(len=17), parameter  :: dirnameinp='../INPUT/HEMIN40/' ! input directory 
    18   character(len=17), parameter  :: dirforcage='../INPUT/Forcage/' ! input directory 
     17  character(len=20), parameter  :: dirnameinp='../../INPUT/HEMIN40/' ! input directory 
     18  character(len=20), parameter  :: dirforcage='../../INPUT/Forcage/' ! input directory 
    1919 
    2020! dimensionnement grilles 

  • trunk/SOURCES/Makefile.grisli.inc

    r9 r10  
    66 
    77# pour lancer des jobs avec lecture d'un fichier namelist 
    8  
    9 JOB = 'job' 
     8# nojob pour lancer avec fichier param dans repertoire resultat 
     9JOB = 'nojob' 
     10# job pour lancer avec fichier param nom quelconque dans SOURCES/Fichiers-parametres  
     11#JOB = 'job' 
    1012 
    1113# pour lancer  
    … …  
    138140        interface_icetempmod.o \ 
    139141        initial-0.3.o initial-phy-2.o initial2-0.4.o \ 
    140         lastoutput-0.2.o lect-eis.o  readinput.o lect_datfile.o write_datfile.o limit_file.o \ 
     142        lastoutput-0.2.o lect-eis.o  readinput.o lect_datfile.o write_datfile.o \ 
    141143        out_cptr_mod.o lineartemp-0.2.o  litho-0.4.o main3D-0.4-40km.o masque.o \ 
    142144        minmax-format.o moy_mxmy.o neffect-0.4.o new-flot-0.3.o  next-time.o \ 

  • trunk/SOURCES/Netcdf-routines/io_netcdf_GRISLI.f90

    r6 r10  
    2828  !       
    2929  use netcdf      
     30  use runparam,only:dirsource  
    3031  !> \interface Read_Ncdf_var 
    3132  !! Interfaces of functions and subroutines to read netcdf variables  
    … …  
    9596 
    9697    implicit none 
    97     open(22,file='../SOURCES/Fichiers-parametres/netcdf_type.dat') 
     98    ! open(22,file='../SOURCES/Fichiers-parametres/netcdf_type.dat') 
     99    open(22,file=trim(dirsource)//'/Fichiers-parametres/netcdf_type.dat') 
    98100    read(22,'(i3)') ncdf_type 
    99101    close(22) 

  • trunk/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

    r6 r10  
    177177    ! lecture des pas de temps de sortie 
    178178    !------------------------------------ 
    179     open(num_file,file='../'//trim(dirsource)//'/Fichiers-parametres/'//geoplace//'_TEMPS-NETCDF.dat') 
     179    ! open(num_file,file='../'//trim(dirsource)//'/Fichiers-parametres/'//geoplace//'_TEMPS-NETCDF.dat') 
     180    open(num_file,file=trim(dirsource)//'/Fichiers-parametres/'//geoplace//'_TEMPS-NETCDF.dat') 
     181 
    180182 
    181183    ! passe les commentaires qui se terminent par une ligne de ~~~ 
    … …  
    233235    !----------------------------------------------------------- 
    234236 
    235     open(num_file,file='../'//trim(dirsource)//'/Fichiers-parametres/'//geoplace//'_LISTE-VAR-NETCDF.dat') 
     237    ! open(num_file,file='../'//trim(dirsource)//'/Fichiers-parametres/'//geoplace//'_LISTE-VAR-NETCDF.dat') 
     238    open(num_file,file=trim(dirsource)//'/Fichiers-parametres/'//geoplace//'_LISTE-VAR-NETCDF.dat') 
    236239 
    237240    !saute les commentaires 
    … …  
    293296    ! lecture des nom des tableaux a sortir en netcdf 
    294297 
    295     open(num_file,file='../'//trim(dirsource)//'/Netcdf-routines/Description_Variables.dat') 
     298    !open(num_file,file='../'//trim(dirsource)//'/Netcdf-routines/Description_Variables.dat') 
     299    open(num_file,file=trim(dirsource)//'/Netcdf-routines/Description_Variables.dat') 
    296300 
    297301    do     !saut des commentaires et des variables 1D 
    … …  
    521525          write (class,'(i2.2)') class_var_out(j) 
    522526 
    523           basename(j)=trim(dirnameout)//'Netcdf-Resu/'//runname//'_class'//class//'_'//numero 
     527          !basename(j)=trim(dirnameout)//'Netcdf-Resu/'//runname//'_class'//class//'_'//numero 
     528          basename(j)=trim(dirnameout)//runname//'_class'//class//'_'//numero 
    524529          fil_sortie(j)=trim(basename(j))//'.nc' 
    525530          ! 4 go a revoir 
    … …  
    11801185             lon(:,:)=xlong(:,:) 
    11811186 
    1182              open(72,file='../'//trim(dirsource)//'/Netcdf-routines/Description_Variables.dat') 
     1187             ! open(72,file='../'//trim(dirsource)//'/Netcdf-routines/Description_Variables.dat') 
     1188             open(72,file=trim(dirsource)//'/Netcdf-routines/Description_Variables.dat') 
    11831189 
    11841190             do  

  • trunk/SOURCES/initial-phy-2-job.f90

    r9 r10  
    3434  ! ouverture du fichier parametre ..._param_list.dat 
    3535  !-------------------------------------------------------------- 
    36   dirsource='SOURCES' 
    37   filin='../'//trim(dirsource)//'/Fichiers-parametres/'//trim(geoplace)//'_param_list.dat' 
     36  ! dirsource='SOURCES' 
     37  dirsource='../../SOURCES' 
     38  ! filin='../'//trim(dirsource)//'/Fichiers-parametres/'//trim(geoplace)//'_param_list.dat' 
    3839  write(6,*) 'fichier parametre du job' 
    3940  read(5,*) job_name 
    4041 
    41   filin='../'//trim(dirsource)//'/Fichiers-parametres/'//trim(job_name) 
     42  filin=trim(dirsource)//'/Fichiers-parametres/'//trim(job_name) 
    4243  write(6,*) filin 
    4344 
    … …  
    5758428 format(A)             ! formats pour les ecritures dans 42 
    5859 
    59   filin='../Param/param'//runname 
     60  ! filin='../Param/param'//runname 
     61  filin='param'//runname 
    6062  open(num_rep_42,file=filin) 
    6163 
    … …  
    107109 
    108110 
    109   filin='time-series/short'//runname//'.ritz' 
     111  ! filin='time-series/short'//runname//'.ritz' 
     112  filin='short'//runname//'.ritz' 
    110113  filin=TRIM(DIRNAMEOUT)//TRIM(filin) 
    111114 

  • trunk/SOURCES/initial-phy-2.f90

    r9 r10  
    3333  ! ouverture du fichier parametre ..._param_list.dat 
    3434  !-------------------------------------------------------------- 
    35   dirsource='SOURCES' 
    36   filin='../'//trim(dirsource)//'/Fichiers-parametres/'//trim(geoplace)//'_param_list.dat' 
    37   !write(6,*) filin 
    38  
     35  ! dirsource='SOURCES' 
     36  dirsource='../../SOURCES' 
     37  ! filin='../'//trim(dirsource)//'/Fichiers-parametres/'//trim(geoplace)//'_param_list.dat' 
     38  filin=trim(geoplace)//'_param_list.dat' 
    3939 
    4040  open(num_param,file=filin)  
    … …  
    5252428 format(A)             ! formats pour les ecritures dans 42 
    5353 
    54   filin='../Param/param'//runname 
     54  ! filin='../Param/param'//runname 
     55  filin='param'//runname 
    5556  open(num_rep_42,file=filin) 
    5657 
    … …  
    101102  !------------------------------ 
    102103 
    103   filin='time-series/short'//runname//'.ritz' 
     104  ! filin='time-series/short'//runname//'.ritz' 
     105  filin='short'//runname//'.ritz' 
    104106  filin=TRIM(DIRNAMEOUT)//TRIM(filin) 
    105107 

  • trunk/SOURCES/main3D-0.4-40km.f90

    r9 r10  
    177177  marine=.true. 
    178178  !     ----------------------------------fin des modifs run les plus usuelles 
    179   DIRNAMEOUT='../RESULTATS/' 
     179  ! DIRNAMEOUT='../RESULTATS/' 
     180  DIRNAMEOUT='./' 
    180181 
    181182  call initial  ! routine qui appel toutes les routines d'initialisation 
    … …  
    371372  call hz_output(tbegin) 
    372373 
    373   call limit_file(1,real(time),dt,tend,dtsortie,dtcpt,testdiag,dtt,runname) 
     374!  call limit_file(1,real(time),dt,tend,dtsortie,dtcpt,testdiag,dtt,runname) 
    374375 
    375376  isynchro=1 

  • trunk/SOURCES/out_horiz_mod.f90

    r4 r10  
    8787    ! lecture des pas de temps de sortie 
    8888    !------------------------------------ 
    89     open(num_dat,file='../'//trim(dirsource)//'/Fichiers-parametres/TEMPS-HZ.dat') 
     89    ! open(num_dat,file='../'//trim(dirsource)//'/Fichiers-parametres/TEMPS-HZ.dat') 
     90    open(num_dat,file=trim(dirsource)//'/Fichiers-parametres/TEMPS-HZ.dat') 
    9091 
    9192    ! passe les commentaires qui se terminent par une ligne de ~~~ 
    … …  
    134135    !----------------------------------------------------------- 
    135136 
    136     open(num_dat,file='../'//trim(dirsource)//'/Fichiers-parametres/LISTE-VAR-HZ.dat') 
     137    ! open(num_dat,file='../'//trim(dirsource)//'/Fichiers-parametres/LISTE-VAR-HZ.dat') 
     138    open(num_dat,file=trim(dirsource)//'/Fichiers-parametres/LISTE-VAR-HZ.dat') 
    137139 
    138140    !saute les commentaires 

  • trunk/SOURCES/steps_time_loop.f90

    r9 r10  
    234234  !-------------------------------------------------------------------- 
    235235 
    236   call limit_file(nt,real(time),dt,tend,dtsortie,dtcpt,testdiag,dtt,runname) 
     236!  call limit_file(nt,real(time),dt,tend,dtsortie,dtcpt,testdiag,dtt,runname) 
    237237 
    238238  !if (time.lt.tgrounded) then 

  • trunk/SOURCES/steps_time_loop_avec_iterbeta.f90

    r9 r10  
    240240  !-------------------------------------------------------------------- 
    241241 
    242   call limit_file(nt,real(time),dt,tend,dtsortie,dtcpt,testdiag,dtt,runname) 
     242!  call limit_file(nt,real(time),dt,tend,dtsortie,dtcpt,testdiag,dtt,runname) 
    243243 
    244244  !if (time.lt.tgrounded) then 

  • trunk/SOURCES/tab-litho-0.3.f90

    r4 r10  
    4545  !      STEPK=100=1/ecart  
    4646 
    47   open(num_kelvin,file='../INPUT/kelvin.res') 
     47  open(num_kelvin,file=trim(dirnameinp)//'../kelvin.res') 
    4848  read(num_kelvin,*) 
    4949  do K=1,NK 

  • trunk/SOURCES/util_recovery.f90

    r4 r10  
    3434    if (itracebug.eq.1)  call tracebug(' Entree dans routine init_recovery ') 
    3535 
    36     open(num_file,file='../SOURCES/Fichiers-parametres/TEMPS-CPTR-NC.dat') 
     36    !open(num_file,file='../SOURCES/Fichiers-parametres/TEMPS-CPTR-NC.dat') 
     37    open(num_file,file=trim(dirsource)//'/Fichiers-parametres/TEMPS-CPTR-NC.dat') 
    3738 
    3839    ! passe les commentaires qui se terminent par une ligne de ~~~ 
Note: See TracChangeset for help on using the changeset viewer.