Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F

    r1206 r1207  
    66      SUBROUTINE calfis_p(lafin,
    77     $                  jD_cur, jH_cur,
    8      $                  heure,
    98     $                  pucov,
    109     $                  pvcov,
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F

    r1201 r1207  
    190190      INTEGER :: iapptrac
    191191      INTEGER :: AdjustCount
    192       INTEGER :: var_time
     192!      INTEGER :: var_time
    193193      LOGICAL :: ok_start_timer=.FALSE.
    194194      LOGICAL, SAVE :: firstcall=.TRUE.
     
    209209
    210210      itau = 0
    211 c$$$      iday = day_ini+itau/day_step
    212 c$$$      time = FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
    213 c$$$         IF(time.GT.1.) THEN
    214 c$$$          time = time-1.
    215 c$$$          iday = iday+1
    216 c$$$         ENDIF
     211!      iday = day_ini+itau/day_step
     212!      time = FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
     213!         IF(time.GT.1.) THEN
     214!          time = time-1.
     215!          iday = iday+1
     216!         ENDIF
    217217
    218218c Allocate variables depending on dynamic variable nqtot
     
    546546      call VTb(VTcaldyn)
    547547c$OMP END MASTER
    548       var_time=time+iday-day_ini
     548!      var_time=time+iday-day_ini
    549549
    550550c$OMP BARRIER
     
    12751275            IF(forward. OR. leapf) THEN
    12761276              itau= itau + 1
    1277 c$$$              iday= day_ini+itau/day_step
    1278 c$$$              time= FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
    1279 c$$$                IF(time.GT.1.) THEN
    1280 c$$$                  time = time-1.
    1281 c$$$                  iday = iday+1
    1282 c$$$                ENDIF
     1277!              iday= day_ini+itau/day_step
     1278!              time= FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
     1279!                IF(time.GT.1.) THEN
     1280!                  time = time-1.
     1281!                  iday = iday+1
     1282!                ENDIF
    12831283            ENDIF
    12841284
     
    14451445
    14461446             itau =  itau + 1
    1447 c$$$             iday = day_ini+itau/day_step
    1448 c$$$             time = FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
    1449 c$$$
    1450 c$$$                  IF(time.GT.1.) THEN
    1451 c$$$                   time = time-1.
    1452 c$$$                   iday = iday+1
    1453 c$$$                  ENDIF
     1447!             iday = day_ini+itau/day_step
     1448!             time = FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0
     1449!
     1450!                  IF(time.GT.1.) THEN
     1451!                   time = time-1.
     1452!                   iday = iday+1
     1453!                  ENDIF
    14541454
    14551455               forward =  .FALSE.
Note: See TracChangeset for help on using the changeset viewer.