Changeset 794 for LMDZ4


Ignore:
Timestamp:
Jun 25, 2007, 1:05:54 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Oublie de commit le bon makdim pour avoir un dimension.h compatible
format fixe/format libre
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/grid/dimension/makdim

    r764 r794  
    66fichdim=dimensions${list}.t${nqmx}
    77
    8 if [ ! -f $fichdim -o ! -f ${fichdim}_90 ] ; then
     8if [ ! -f $fichdim -o ] ; then
    99# si le fichier de dimensions n'existe pas, on le cree
    1010
     
    4848
    4949cat << EOF > $fichdim
    50 c-----------------------------------------------------------------------
    51 c   INCLUDE 'dimensions.h'
    52 c
    53 c   dimensions.h contient les dimensions du modele
    54 c   ndm est tel que iim=2**ndm
    55 c   nqmx est la dimension de la variable traceur q
    56 c-----------------------------------------------------------------------
    57 
    58       INTEGER iim,jjm,llm,ndm
    59 
    60       PARAMETER (iim= $im,jjm=$jm,llm=$lm,ndm=$ndm)
    61 
    62       integer nqmx
    63       parameter (nqmx=$nqmx)
    64 
    65 c-----------------------------------------------------------------------
    66 EOF
    67 
    68 cat << EOF > ${fichdim}_90
    6950!-----------------------------------------------------------------------
    70 !   INCLUDE 'dimensions90.h'
     51!   INCLUDE 'dimensions.h'
    7152!
    72 !   dimensions90.h contient les dimensions du modele
     53!   dimensions.h contient les dimensions du modele
    7354!   ndm est tel que iim=2**ndm
    7455!   nqmx est la dimension de la variable traceur q
     
    8465!-----------------------------------------------------------------------
    8566EOF
     67
    8668fi
    8769
    8870\rm ../dimensions.h
    89 \rm ../dimensions90.h
    9071tar cf - $fichdim | ( cd .. ; tar xf - ; mv $fichdim dimensions.h )
    91 tar cf - ${fichdim}_90 | ( cd .. ; tar xf - ; mv ${fichdim}_90 dimensions90.h )
Note: See TracChangeset for help on using the changeset viewer.