Changeset 101 for trunk/libf/dyn3d

Timestamp:

Mar 23, 2011, 4:23:31 PM (14 years ago)

Author:

slebonnois

Message:

SL: modifications pour arriver a compiler le gcm VENUS !
Ca marche !
A noter: modifs de makelmdz

Location:

trunk/libf/dyn3d

Files:

• ce0l.F90 (modified) (2 diffs)
• gcm.F (modified) (3 diffs)
• leapfrog.F (modified) (1 diff)
• logic.h (modified) (1 diff)
• sortvarc.F (modified) (1 diff)

trunk/libf/dyn3d/ce0l.F90

@@ -27 +27 @@
 #endif
   IMPLICIT NONE
+#include "iniprint.h"
 #ifndef CPP_EARTH
   WRITE(lunout,*)'limit_netcdf: Earth-specific routine, needs Earth physics'
@@ -36 +37 @@
 #include "paramet.h"
 #include "indicesol.h"
-#include "iniprint.h"
 #include "temps.h"
 #include "logic.h"

trunk/libf/dyn3d/gcm.F

@@ -22 +22 @@
 ! dynamique -> physique pour l'initialisation
 ! Ehouarn: for now these only apply to Earth:
-#ifdef CPP_EARTH
+#ifdef CPP_PHYS
       USE dimphy
       USE comgeomphy
+#endif
+#ifdef CPP_EARTH
       USE mod_phys_lmdz_para, ONLY : klon_mpi_para_nb
 #endif
@@ -180 +182 @@
 !#ifdef CPP_EARTH
 #ifdef CPP_PHYS
-      CALL Init_Phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
-      call InitComgeomphy
+      CALL init_phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
+      call initcomgeomphy
 #endif
 !      endif
@@ -482 +484 @@
       else
 ! A voir pour Titan et Venus
-      write(lunout,*)'A VOIR POUR VENUS ET TITAN: separation en annees...'
+      write(lunout,*)'A VOIR POUR VENUS/TITAN: separation en annees...'
       endif ! planet_type
 

trunk/libf/dyn3d/leapfrog.F

@@ -196 +196 @@
       real,external :: cpdet
       real :: ztetaec(ip1jmp1,llm)
+
+c dummy: sinon cette routine n'est jamais compilee...
+      if(1.eq.0) then
+        CALL init_phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
+      endif
 
       itaufin   = nday*day_step

trunk/libf/dyn3d/logic.h

@@ -10 +10 @@
      &  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus       &
      &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
-     &  ,ok_limit,ok_etat0
+     &  ,ok_limit,ok_etat0,iflag_trac
 
       LOGICAL purmats,forward,leapf,apphys,statcl,conser,               &
      & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
      &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
-     &  ,ok_limit,ok_etat0
+     &  ,ok_limit,ok_etat0,iflag_trac
 
       INTEGER iflag_phys

trunk/libf/dyn3d/sortvarc.F

@@ -5 +5 @@
      $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time ,
      $ vcov )
+
+      use control_mod,only:resetvarc 
       IMPLICIT NONE