* Modif de defrun.F : commentaire indiquant qu'il ne sert plus donc pas a jour ! * Modif de dynredem.F : correction faute orthographe dans commentaire ** IOIPSL, real8 vs real4 **----------------------- J'élimine ce truc bancal. Il faudra compiler IOIPSL en double précision. Du coup, pas de modifs spécifiques dans dyn3d. Par contre, il faudra éliminer ça dans les physiques ! ** Nombre de traceurs **------------------- * Modif de infotrac.F90 : - definition de type_trac - definition de nqtrue depend de planet_type - lecture de traceur.def depend de planet_type * Modif de addfi.F : - separation des traceurs 1 et 2 pour qtestt/qtestw valable seulement pour planet_type=earth * Modif de caladvtrac.F : - deplacement du test sur planet_type pour virer tout ce qui concerne dq quand on n'est pas sur Terre * Modif de calfis.F : - ajout d'une remarque concernant pdq... ** Avec ou sans advection de traceurs **----------------------------------- Reglé grace à iadv lu dans traceur.def: si 0, pas advecté. Sans traceurs, on a donc un seul traceur dummy, non advecté, mais écrit dans start.nc et trimbalé partout... ** Homogeneisation des .def **------------------------- * Modif des deftanks/[titan/venus]/[gcm/physiq/run].def : - ajout planet_type - passage des cles physiques vers physiq.def - homogeneisation des parametres * Modif de conf_gcm.F : - ok_strato mis à true par defaut * Modif de clesph0.h : - ajout d'un commentaire: il faut virer ce fichier, ne sert plus a rien. ** Homogeneisation de bilan_dyn **----------------------------- * Modif de leapfrog.def : - premier appel: il y a first, deplacement de first=.false., elimination prem - ajout d'initialisations - ajout des tendances de la couche superieure (d*top) - elimination itau_w (ne sert pas) - couche superieure: ajout addfi séparé - passage des d*dis en */s - appel bilan_dyn * Modif de bilan_dyn.def : - modification appel (pour sortie des tendances en moment cinetique) - ajout tendances du* en m/s2 - ajout variables pour transport vertical - ajout variables pour tendances en moment cinetique - Champs advectés: base=6 (ovap est un traceur...), en commentaire pour l'instant, les traceurs. - introduction des calculs pour transport vertical - introduction des calculs pour tendances moment cinétique - présentation des déclarations - facteur fact_geovenus=-1 pour Vénus - petit ajustement possible pour ncum (problèmes de précision) - élminination des sorties grads - modif noms temp et ecin - modif sur incrementation itau et time - definitions et sorties: limité pour l'instant à temp et ang, sans les psiQ sans la somme en lat du transport vertical, à revoir (1D seulement?). - modification calcul ang - modification tpot2t - correction sur fonction de courant psiQ ** Choix de spécificités Terre dans gcm.F **--------------------------------------- ( certains appels ont été mis sous flag CPP_EARTH ou planet_type=earth alors ) ( qu'il sont aussi valables pour Venus et Titan... ) ( ils etaient sous flag IOIPSL avant... ) * Modif de gcm.F : - appel de dynetat0 modulé selon planet_type (mars est un cas à part) - appel de dynredem0 modulé selon planet_type (mars est un cas à part) - appel de iniphysiq: a mettre sous cle CPP_PHYS pour cas sans physique * Modif de leapfrog.F : - appel de dynredem1 modulé selon planet_type (mars est un cas à part) * Modif de calfis.F : - appel de physiq: a mettre sous cle CPP_PHYS pour cas sans physique - conservation de la possibilité de nsplit_phys - ajout commentaire sur unité des tendances * Modif de conf_gcm.F : - commentaires pour nsplit_phys