SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/FA/facomp.h Source File

Go to the documentation of this file.
00001 C**
00002 C----- DESCRIPTION DES "PARAMETER" DU LOGICIEL DE "FICHIER ARPEGE" -----
00003 C
00004 C     JPNXFA = Nombre maximum de fichiers ouverts "simultanement"
00005 C     JPNXCA =    "      "    "  cadres definissables "simultanement"
00006 C     JPXNIV =    "      "    "  niveaux verticaux (champs d'altitude)
00007 C     JPXTRO = Troncature maximum gerable
00008 C     JPXLAT = Nombre maximum de latitudes de pole a pole
00009 C     JPXLON = Nombre maximum de longitudes par parallele
00010 C     JPLDAT = Longueur de l'article 'DATE', en mots
00011 C     JPLB1P = Longueur du tableau "Bloc 1" pour sous-programmes GRIB
00012 C     JPLB2P = Longueur du tableau "Bloc 2" pour sous-programmes GRIB
00013 C     JPNIIL = Code "valeur absente" du logiciel pour les entiers
00014 C     JPXCSP = Dimension maxi d'un champ en coefficients spectraux
00015 C     JPXPDG = Dimension maxi d'un champ en points de grille
00016 C     JPXCHA = Dimension maxi d'un champ ( maximum de JPXCSP et JPXPDG )
00017 C     JPXPAH = Nombre maximum de latitudes par hemisphere
00018 C     JPXIND = DIMENSIONING OF NOZPAR()
00019 C     JPXGEO = DIMENSIONING OF SINLAT()
00020 C     JPNVER = Numero de version du logiciel (qui est le contenu de
00021 C              l'article dont le nom est l'identificateur du fichier)
00022 C     JPUILA = Puissance de laplacien maximum pour laquelle les tableaux
00023 C              servant a calculer laplacien et inverse sont precalcules
00024 C     JPXNOM = Nombre maximum de caracteres par NOM d'article LFI.
00025 C     JPXPRF =   "       "    "      "      par PReFixe de champ.
00026 C     JPXSUF = JPXPRF+JPXNOM.
00027 C     JPTNIV = Nombre de types de niveaux verticaux (re)connus.
00028 C     CPDATE = Nom de l'article DATE
00029 C
00030 C         Noms des articles contenant les differentes parties du CADRE:
00031 C
00032 C     CPCADI = "Dimensions" (MTRONC, NNIVER, NLATIT, NXLOPA)
00033 C     CPCAFS = Parametres de la transformation ARPEGE
00034 C              (SSLAPO, SCLOPO, SSLOPO, SCODIL)
00035 C     CPCARP = Tableaux lies a la reduction des points pres des poles
00036 C     CPCASL = Tableau des sinus des latitudes
00037 C     CPCACH = Valeurs des fonctions "A" et "B" de la coordonnee hybride
00038 C     JPCADI et JPCAFS sont les longueurs des 2 premiers de ces articles
00039 C
00040       INTEGER JPNXFA, JPNXCA, JPLDAT, JPNIIL, JPXNIV, JPXTRO, JPXLAT
00041       INTEGER JPUILA, JPXAU1, JPXLON, JPXAU2, JPXPAH, JPXIND, JPXGEO
00042       INTEGER JPXCSP, JPXCHA, JPLB1P, JPLB2P, JPCADI, JPCAFS, JPNVER
00043       INTEGER JPXPDG, JPXNOM, JPXPRF, JPXSUF, JPTNIV
00044 C
00045       CHARACTER CPCADI*(*), CPCAFS*(*), CPCARP*(*), CPCACH*(*)
00046       CHARACTER CPCASL*(*), CPDATE*(*)
00047 C
00048 C
00049 C Reglage de la troncature maximum gerable (JPXTRO)
00050 C et du nombre maximum de niveaux verticaux (JPXNIV)
00051 C
00052 #if defined ( HIGHRES )
00053 C
00054 C     Setup high resolution parameters 
00055 C
00056       PARAMETER ( JPXTRO=1280, JPXLAT=2560, JPXNIV=200 )
00057 C
00058 #else
00059 C 
00060 C     Setup low resolution parameters to save memory
00061 C
00062       PARAMETER ( JPXTRO=599, JPXLAT=1200, JPXNIV=200 )
00063 C
00064 #endif
00065 C
00066 C
00067       PARAMETER ( JPNXFA=20, JPNXCA=20, JPLDAT=11, JPNIIL=-999 )
00068       PARAMETER ( JPUILA=3 )
00069       PARAMETER ( JPTNIV=122 )
00070       PARAMETER ( JPXAU1=(1+JPXLAT)/2, JPXLON=2*JPXLAT )
00071       PARAMETER ( JPXAU2=(2*JPXTRO)+4 )
00072       PARAMETER ( JPXPAH=(8*(8/JPXAU1)+JPXAU1*(JPXAU1/8))
00073      S                   /((8/JPXAU1)+(JPXAU1/8)) )
00074       PARAMETER ( JPXIND=(JPXAU1*(JPXAU1/JPXAU2)+JPXAU2*(JPXAU2/JPXAU1))
00075      S                   /((JPXAU1/JPXAU2)+(JPXAU2/JPXAU1)) )
00076       PARAMETER ( JPXGEO=(12*(12/JPXAU1)+JPXAU1*(JPXAU1/12))
00077      S                   /((12/JPXAU1)+(JPXAU1/12)) )
00078       PARAMETER ( JPXCSP=(1+JPXTRO)*(2+JPXTRO), JPXPDG=JPXLON*JPXLAT )
00079       PARAMETER ( JPXCHA=(JPXCSP*(JPXCSP/JPXPDG)+JPXPDG*(JPXPDG/JPXCSP))
00080      S                   /((JPXCSP/JPXPDG)+(JPXPDG/JPXCSP)) )
00081       PARAMETER ( JPLB1P=19, JPLB2P=17, JPXNOM=16, JPXPRF=8 )
00082       PARAMETER ( JPCADI=5, JPCAFS=4, JPNVER=1, JPXSUF=JPXNOM+JPXPRF )
00083       PARAMETER ( CPCADI='CADRE-DIMENSIONS', CPCAFS='CADRE-FRANKSCHMI' )
00084       PARAMETER ( CPCARP='CADRE-REDPOINPOL', CPCACH='CADRE-FOCOHYBRID' )
00085       PARAMETER ( CPCASL='CADRE-SINLATITUD', CPDATE='DATE-DES-DONNEES' )
00086 C