Ignore:
Timestamp:
Jun 11, 2002, 2:19:49 PM (22 years ago)
Author:
lmdzadmin
Message:

Differentes modifs d'ajustement et de reglages du calendrier
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/calcratqs.F

    r304 r364  
    100100                   if (pt_conv(i,k)) then
    101101                      ratqs(i,k)=0.01
    102      s                +0.25*(q_seri(i,1)-q_seri(i,k))/q_seri(i,k)
     102     s                +1.5*0.25*(q_seri(i,1)-q_seri(i,k))/q_seri(i,k)
    103103                      ratqs(i,k)=min(ratqs(i,k),ratqsmax)
    104104                      ratqs(i,k)=max(ratqs(i,k),0.1)
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

    r360 r364  
    790790  real, dimension(klon) :: cdrag
    791791
     792  include 'temps.inc'
     793
    792794  if (check) write(*,*)'Entree ', modname
    793795  if (check) write(*,*)'ok_veget = ',ok_veget
     
    994996!
    995997  if (debut) then
    996     call intersurf_main (itime-1, iim, jjm+1, knon, ktindex, dtime, &
     998    call intersurf_main (itime+itau_phy-1, iim, jjm+1, knon, ktindex, dtime, &
    997999     & lrestart_read, lrestart_write, lalo, &
    9981000     & contfrac, neighbours, resolution, date0, &
     
    10051007  endif
    10061008
    1007   call intersurf_main (itime, iim, jjm+1, knon, ktindex, dtime, &
     1009  call intersurf_main (itime+itau_phy, iim, jjm+1, knon, ktindex, dtime, &
    10081010     & lrestart_read, lrestart_write, lalo, &
    10091011     & contfrac, neighbours, resolution, date0, &
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

    r361 r364  
    734734ccc         ecrit_ins = NINT(86400./dtime *0.5)  ! 2 fois par jour
    735735ccc         ecrit_ins = NINT(86400./dtime *0.25)  ! 4 fois par jour
     736         ecrit_ins = NINT(86400./dtime/12.)  ! toutes les deux heures
    736737         ecrit_ins = NINT(86400./dtime/48.)  ! a chaque pas de temps
    737          ecrit_ins = NINT(86400./dtime/12.)  ! toutes les deux heures
    738738         IF (ok_instan) THEN
    739739         PRINT*, 'La frequence de sortie instant. est de ', ecrit_ins
     
    18211821      fder = dlw
    18221822
    1823       CALL clmain(dtime,itap,zjulian,pctsrf,
     1823      CALL clmain(dtime,itap,date0,pctsrf,
    18241824     e            t_seri,q_seri,u_seri,v_seri,
    18251825     e            julien, rmu0,
     
    20052005      ENDIF
    20062006
    2007       CALL homogene(paprs, q_seri, d_q_con, u_seri,v_seri,
    2008      .              d_u_con, d_v_con)
     2007c     CALL homogene(paprs, q_seri, d_q_con, u_seri,v_seri,
     2008c    .              d_u_con, d_v_con)
    20092009      DO k = 1, klev
    20102010        DO i = 1, klon
Note: See TracChangeset for help on using the changeset viewer.