Changeset 37 for trunk/libf/dyn3dpar


Ignore:
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.
Location:
trunk/libf/dyn3dpar
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/libf/dyn3dpar/cpdet.F

    r8 r37  
    1414
    1515      SUBROUTINE ini_cpdet
     16     
     17      USE control_mod, ONLY: planet_type
    1618      IMPLICIT none
    1719c======================================================================
    1820c Initialisation de nu_venus et t0_venus
    1921c======================================================================
    20 
    21 ! for planet_type:
    22       USE control_mod
    2322
    2423! for cpp, nu_venus and t0_venus:
    … …  
    4039
    4140      FUNCTION cpdet(t)
    42       IMPLICIT none
    43 
    44 ! for planet_type:
    45       USE control_mod
     41
     42      USE control_mod, ONLY: planet_type
     43      IMPLICIT none
    4644
    4745! for cpp, nu_venus and t0_venus:
    … …  
    6361
    6462      SUBROUTINE t2tpot(npoints, yt, yteta, ypk)
    65       IMPLICIT none
    6663c======================================================================
    6764c Arguments:
    … …  
    7370c======================================================================
    7471
    75 ! for planet_type:
    76       USE control_mod
    77 
     72      USE control_mod, ONLY: planet_type
     73      IMPLICIT NONE
     74     
    7875! for cpp, nu_venus and t0_venus:
    7976#include "comconst.h"
    … …  
    137134
    138135      SUBROUTINE tpot2t(npoints,yteta, yt, ypk)
    139       IMPLICIT none
    140136c======================================================================
    141137c Arguments:
    … …  
    147143c======================================================================
    148144
    149 ! for planet_type:
    150       USE control_mod
     145      USE control_mod, ONLY: planet_type
     146      IMPLICIT NONE
    151147
    152148! for cpp, nu_venus and t0_venus:

  • trunk/libf/dyn3dpar/infotrac.F90

    r8 r37  
    316316       tname(new_iq)= tnom_0(iq)
    317317       IF (iadv(new_iq)==0) THEN
    318           ttext(new_iq)=str1(1:lnblnk(str1))
     318          ttext(new_iq)=str1(1:len_trim(str1))
    319319       ELSE
    320           ttext(new_iq)=str1(1:lnblnk(str1))//descrq(iadv(new_iq))
     320          ttext(new_iq)=str1(1:len_trim(str1))//descrq(iadv(new_iq))
    321321       END IF
    322322
Note: See TracChangeset for help on using the changeset viewer.