Changeset 1327

Timestamp:

Aug 19, 2014, 1:18:13 AM (10 years ago)

Author:

jleconte

Message:

correct previous commit

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• comsaison_h.F90 (modified) (1 diff)
• orbite.F (modified) (2 diffs)
• physiq.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/comsaison_h.F90

@@ -9 +9 @@
 
        real, allocatable, dimension(:) :: mu0,fract
+!$OMP THREADPRIVATE(isaison,callsais,dist_star,declin,mu0,fract)
 
        end module comsaison_h

trunk/LMDZ.GENERIC/libf/phystd/orbite.F

@@ -1 +1 @@
       subroutine orbite(pls,pdist_star,pdecli,pright_ascenc)
+
+      use planete_mod, only: p_elips, e_elips, timeperi, obliquit
       implicit none
-
 !==================================================================
 !     
@@ -24 +25 @@
 c   -------------
 
-#include "planete.h"
 #include "comcstfi.h"
 

trunk/LMDZ.GENERIC/libf/phystd/physiq.F90

@@ -17 +17 @@
                            dryness, watercaptag
       use comdiurn_h, only: coslat, sinlat, coslon, sinlon
-      use comsaison_h, only: mu0, fract, dist_star, declin
+      use comsaison_h, only: mu0, fract, dist_star, declin, right_ascen
       use comsoil_h, only: nsoilmx, layer, mlayer, inertiedat
       USE comgeomfi_h, only: long, lati, area, totarea, totarea_planet
@@ -251 +251 @@
       real zdtdif(ngrid,nlayer)                       ! (K/s)
       real zdvadj(ngrid,nlayer),zduadj(ngrid,nlayer)  ! (m.s-2)
-      real zdvtid(ngrid,nlayer),zdutid(ngrid,nlayer)  ! (m.s-2)
       real zdhadj(ngrid,nlayer)                           ! (K/s)
       real zdtgw(ngrid,nlayer)                            ! (K/s)