Ignore:
Timestamp:
Dec 22, 2011, 12:26:02 PM (13 years ago)
Author:
lguez
Message:

Removed two "fi" with no corresponding "if" in "makdim".

In procedure "coefkz", when calculating cloud fraction "zfr", "zq" can
be zero at high altitude. Avoid division by zero, set "zfr" to 0 when
"zq" is 0.

In "physiq", allocatable arrays "tabijgcm", "longcm", "latgcm",
"igcm", "jgcm" cannot be arguments of "phys_output_open" if they have
not been allocated. Allocate them with zero size when
'npCFMIP_param.data' cannot be opened.

File:
1 edited

Legend:

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

    r1146 r1604  
    1 for i in $* ; do
    2    list=$list.$i
     1for i in $*
     2  do
     3  list=$list.$i
    34done
    45fichdim=dimensions${list}
    56
    6 if [ ! -f $fichdim ] ; then
     7if [ ! -f $fichdim ]
     8    then
    79# si le fichier de dimensions n'existe pas, on le cree
    810
    9   if [ $# -ge 3 ] ; then
    10      im=$1
    11      jm=$2
    12      lm=$3
    13      n2=$1
    14      ndm=1
     11    if [ $# -ge 3 ]
     12        then
     13        im=$1
     14        jm=$2
     15        lm=$3
     16        n2=$1
     17        ndm=1
    1518
    1619# Le test suivant est commente car il est inutile avec le nouveau
     
    2831
    2932
    30   else if [ $# -ge 2 ] ; then
    31       im=1
    32       jm=$1
    33       lm=$2
    34       ndm=1
    35   else if [ $# -ge 1 ] ; then
    36       im=1
    37       jm=1
    38       lm=$1
    39       ndm=1
    40   else
    41          echo il faut au moins une dimension
    42          exit
    43   fi
    44 fi
     33    else if [ $# -ge 2 ]
     34        then
     35        im=1
     36        jm=$1
     37        lm=$2
     38        ndm=1
     39    else if [ $# -ge 1 ]
     40        then
     41        im=1
     42        jm=1
     43        lm=$1
     44        ndm=1
     45    else
     46        echo il faut au moins une dimension
     47        exit
     48    fi
    4549fi
    4650
     
    6064EOF
    6165
    62 fi
    63 
    6466\rm ../dimensions.h
    6567tar cf - $fichdim | ( cd .. ; tar xf - ; mv $fichdim dimensions.h )
Note: See TracChangeset for help on using the changeset viewer.