Changeset 97 for trunk/libf/dyn3d/sortvarc.F

Timestamp:

Mar 22, 2011, 5:25:44 PM (14 years ago)

Author:

slebonnois

Message:

Serie de modifs SL pour homogeneisation des phytitan et phyvenus
Ca touche aussi aux liens phy/dyn (surtout a propos de clesphy0),
a verifier avec les autres, donc...

File:

• trunk/libf/dyn3d/sortvarc.F (modified) (4 diffs)

trunk/libf/dyn3d/sortvarc.F

@@ -55 +55 @@
 
       REAL       SSUM
+
+      logical  firstcal
+      data     firstcal/.true./
+      save     firstcal
 
 c-----------------------------------------------------------------------
@@ -115 +119 @@
      *               cosphi(ij)
           ENDDO
-          angl(l) = radsg *
+          angl(l) = rad *
      s    (SSUM(ip1jm-iip1,ge(iip2),1)-SSUM(jjm-1,ge(iip2),iip1))
       ENDDO
@@ -129 +133 @@
       ang   = SSUM(     llm,  angl, 1 )
 
-c      rday = REAL(INT ( day_ini + time ))
-c
+      IF (firstcal.and.resetvarc) then
        rday = REAL(INT(time-jD_ref-jH_ref))
-      IF(ptot0.eq.0.)  THEN
          PRINT 3500, itau, rday, heure,time
          PRINT*,'WARNING!!! On recalcule les valeurs initiales de :'
@@ -151 +153 @@
       ang = ang /ang0
 
+      firstcal = .false.
 
       PRINT 3500, itau, rday, heure, time