Changeset 37 for trunk/libf/dyn3d/infotrac.F90

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/infotrac.F90 (modified) (1 diff)

trunk/libf/dyn3d/infotrac.F90

@@ -316 +316 @@
        tname(new_iq)= tnom_0(iq)
        IF (iadv(new_iq)==0) THEN
-          ttext(new_iq)=str1(1:lnblnk(str1))
+          ttext(new_iq)=str1(1:len_trim(str1))
        ELSE
-          ttext(new_iq)=str1(1:lnblnk(str1))//descrq(iadv(new_iq))
+          ttext(new_iq)=str1(1:len_trim(str1))//descrq(iadv(new_iq))
        END IF