Changeset 37 for trunk/libf/dyn3d/calfis.F

Timestamp:

Jan 27, 2011, 4:38:38 PM (14 years ago)

Author:

emillour

Message:

Remise en route chantier compilation -- Ehouarn

• Modifs et corrections pour pouvoir compiler le gcm (en séentiel, avec

makelmdz_fcm pour l'instant):

• ajout de fichiers 'arch' pour linux-64 (pour Bellonzi, avec ioipsl et en r8)
• modification de makelmdz_fcm, ajout de la cléPP_PHYS si on compile avec une physique
• correction de quelques typos/bugs réléàa compilation:
• infotrac.F90 : supression des appels àlnblnk' (remplacépar len_trim)
• bilan_dyn.F : déaration des variables znom3,znom3l,zunites3, planet_type
• cpdet.F : "use control_mod, ONLY: planet_type" mis aux bons endroits

(idem sur cpdet.F dans dyn3dpar)

• leapfrog.F : declaration de ztetaec(), dtec, cpdet , itau_w, duspg()
• diagedyn.F : correction typo; attention dans diagedyn.F il y a du

include "../phylmd/YOMCST.h"
Ca va poser problè qd on change de physique....

• Avec ces modifs, la compilation marche sans physque, avec ou sans ioipsl et avec la physique terrestre phylmd.

File:

• trunk/libf/dyn3d/calfis.F (modified) (2 diffs)

trunk/libf/dyn3d/calfis.F

@@ -487 +487 @@
 ! ne pose pas de probleme a priori.
 
-! #ifdef CPP_PHYS
+#ifdef CPP_PHYS
 
 !      write(lunout,*) 'PHYSIQUE AVEC NSPLIT_PHYS=',nsplit_phys
@@ -576 +576 @@
       zdqfi(:,:,:)=zdqfic(:,:,:)/nsplit_phys
 
-! #endif ! CPP_PHYS
+#endif
+! #endif of #ifdef CPP_PHYS
 
 500   CONTINUE