Changeset 2038


Ignore:
Timestamp:
May 7, 2014, 11:05:48 AM (10 years ago)
Author:
fhourdin
Message:

Possibilité d'imposer le nombre de pas de temps de la simulation avec nday<0
If nday<0, nday is the total number of time step of the simulation

Location:
LMDZ5/trunk/libf
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d/gcm.F

    r2021 r2038  
    462462
    463463
    464       day_end = day_ini + nday
     464      if (nday>=0) then
     465         day_end = day_ini + nday
     466      else
     467         day_end = day_ini - nday/day_step
     468      endif
    465469      WRITE(lunout,300)day_ini,day_end
    466470 300  FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//)

  • LMDZ5/trunk/libf/dyn3d/leapfrog.F

    r2021 r2038  
    198198
    199199
    200       itaufin   = nday*day_step
     200      if (nday>=0) then
     201         itaufin   = nday*day_step
     202      else
     203         itaufin   = -nday
     204      endif
    201205      itaufinp1 = itaufin +1
    202206      itau = 0

  • LMDZ5/trunk/libf/dyn3dmem/gcm.F

    r2021 r2038  
    477477
    478478
    479       day_end = day_ini + nday
     479      if (nday>=0) then
     480         day_end = day_ini + nday
     481      else
     482         day_end = day_ini - nday/day_step
     483      endif
     484 
    480485      WRITE(lunout,300)day_ini,day_end
    481486 300  FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//)

  • LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

    r2021 r2038  
    214214      lafin=.false.
    215215     
    216       itaufin   = nday*day_step
     216      if (nday>=0) then
     217         itaufin   = nday*day_step
     218      else
     219         itaufin   = -nday
     220      endif
     221
    217222      itaufinp1 = itaufin +1
    218223

  • LMDZ5/trunk/libf/dyn3dpar/gcm.F

    r2021 r2038  
    477477
    478478
    479       day_end = day_ini + nday
     479      if (nday>=0) then
     480         day_end = day_ini + nday
     481      else
     482         day_end = day_ini - nday/day_step
     483      endif
     484
    480485      WRITE(lunout,300)day_ini,day_end
    481486 300  FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//)

  • LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

    r2021 r2038  
    212212      lafin=.false.
    213213     
    214       itaufin   = nday*day_step
     214      if (nday>=0) then
     215         itaufin   = nday*day_step
     216      else
     217         itaufin   = -nday
     218      endif
     219
    215220      itaufinp1 = itaufin +1
    216221
Note: See TracChangeset for help on using the changeset viewer.