Changeset 1207 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar

Timestamp:

Jul 9, 2009, 2:07:12 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Probleme sur la forme des commentaires laisses par emacs, openmp pourrait mal
les comprendre
L'argument heure disparait de la liste des arguments d'appel a calfis

Location:

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar

Files:

• calfis_p.F (modified) (1 diff)
• leapfrog_p.F (modified) (5 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F

@@ -6 +6 @@
       SUBROUTINE calfis_p(lafin,
      $                  jD_cur, jH_cur,
-     $                  heure,
      $                  pucov,
      $                  pvcov,

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F

@@ -190 +190 @@
       INTEGER :: iapptrac
       INTEGER :: AdjustCount
-      INTEGER :: var_time
+!      INTEGER :: var_time
       LOGICAL :: ok_start_timer=.FALSE.
       LOGICAL, SAVE :: firstcall=.TRUE.
@@ -209 +209 @@
 
       itau = 0
-c$$$      iday = day_ini+itau/day_step
-c$$$      time = FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
-c$$$         IF(time.GT.1.) THEN
-c$$$          time = time-1.
-c$$$          iday = iday+1
-c$$$         ENDIF
+!      iday = day_ini+itau/day_step
+!      time = FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
+!         IF(time.GT.1.) THEN
+!          time = time-1.
+!          iday = iday+1
+!         ENDIF
 
 c Allocate variables depending on dynamic variable nqtot
@@ -546 +546 @@
       call VTb(VTcaldyn)
 c$OMP END MASTER
-      var_time=time+iday-day_ini
+!      var_time=time+iday-day_ini
 
 c$OMP BARRIER
@@ -1275 +1275 @@
             IF(forward. OR. leapf) THEN
               itau= itau + 1
-c$$$              iday= day_ini+itau/day_step
-c$$$              time= FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
-c$$$                IF(time.GT.1.) THEN
-c$$$                  time = time-1.
-c$$$                  iday = iday+1
-c$$$                ENDIF
+!              iday= day_ini+itau/day_step
+!              time= FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
+!                IF(time.GT.1.) THEN
+!                  time = time-1.
+!                  iday = iday+1
+!                ENDIF
             ENDIF
 
@@ -1445 +1445 @@
 
              itau =  itau + 1
-c$$$             iday = day_ini+itau/day_step
-c$$$             time = FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
-c$$$
-c$$$                  IF(time.GT.1.) THEN
-c$$$                   time = time-1.
-c$$$                   iday = iday+1
-c$$$                  ENDIF
+!             iday = day_ini+itau/day_step
+!             time = FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
+!
+!                  IF(time.GT.1.) THEN
+!                   time = time-1.
+!                   iday = iday+1
+!                  ENDIF
 
                forward =  .FALSE.