Changeset 1676 for LMDZ5/trunk


Ignore:
Timestamp:
Nov 8, 2012, 9:03:30 PM (12 years ago)
Author:
aslmd
Message:
  • Repare le probleme "un jour sans fin" des versions precedentes pour le modele generique. Pas d'impact sur modele terrestre.

NB: changements egalement faits sur dyn3dmem en prevision de son utilisation

  • Fix the bug "Groundhog Day" which was a problem for previous versions using generic physics. No impact whatsoever on terrestrial model.

NB: changes also done on dyn3dmem which is planned to be used soon

Author : AS equipe planeto

Location:
LMDZ5/trunk/libf
Files:
6 edited

Legend:

Unmodified
Added
Removed

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

    r1654 r1676  
    507507     .             debut_split,    !! firstcall
    508508     .             lafin_split,    !! lastcall
    509      .             float(day_ini), !! pday <-- day_ini (dans temps.h)
     509     .             jD_cur,         !! pday. see leapfrog
    510510     .             jH_cur_split,   !! ptime "fraction of day"
    511511     .             zdt_split,      !! ptimestep

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

    r1656 r1676  
    383383           jD_cur = jD_ref + day_ini - day_ref +                        &
    384384     &          itau/day_step
     385
     386           IF (planet_type .eq."generic") THEN
     387              ! AS: we make jD_cur to be pday
     388              jD_cur = int(day_ini + itau/day_step)
     389           ENDIF
     390
    385391           jH_cur = jH_ref + start_time +                               &
    386392     &              mod(itau,day_step)/float(day_step)

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

    r1673 r1676  
    725725     .             debut_split,    !! firstcall
    726726     .             lafin_split,    !! lastcall
    727      .             float(day_ini), !! pday <-- day_ini (dans temps.h)
     727     .             jD_cur,         !! pday. see leapfrog_p
    728728     .             jH_cur_split,   !! ptime "fraction of day"
    729729     .             zdt_split,      !! ptimestep

  • LMDZ5/trunk/libf/dyn3dmem/call_calfis_mod.F90

    r1673 r1676  
    138138           jD_cur = jD_ref + day_ini - day_ref                           &
    139139     &        + itau/day_step
     140
     141           IF (planet_type .eq."generic") THEN
     142              ! AS: we make jD_cur to be pday
     143              jD_cur = int(day_ini + itau/day_step)
     144           ENDIF
     145
    140146           jH_cur = jH_ref + start_time +                                &
    141147     &              mod(itau,day_step)/float(day_step)

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

    r1654 r1676  
    684684     .             debut_split,    !! firstcall
    685685     .             lafin_split,    !! lastcall
    686      .             float(day_ini), !! pday <-- day_ini (dans temps.h)
     686     .             jD_cur,         !! pday. see leapfrog_p
    687687     .             jH_cur_split,   !! ptime "fraction of day"
    688688     .             zdt_split,      !! ptimestep

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

    r1671 r1676  
    710710           jD_cur = jD_ref + day_ini - day_ref
    711711     $        + itau/day_step
     712
     713           IF (planet_type .eq."generic") THEN
     714              ! AS: we make jD_cur to be pday
     715              jD_cur = int(day_ini + itau/day_step)
     716           ENDIF
     717
    712718           jH_cur = jH_ref + start_time +                                &
    713719     &              mod(itau,day_step)/float(day_step)
Note: See TracChangeset for help on using the changeset viewer.