Ignore:
Timestamp:
Jan 15, 2010, 11:35:59 AM (14 years ago)
Author:
Laurent Fairhead
Message:
  • sauvegarde de variables des thermiques dans le restart physique
  • modification de iostart pour pouvoir sauvegarder des champs en klevp1
  • nettoyage sur physiq.F pour gfortran
  • variables from the new version of the thermics are saved to the restart file
  • iostart is modified to allow the writing of fields dimensionned in klevp1
  • some clean-up work on physiq.F for the gfortran compilation
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/physiq.F

    r1294 r1298  
    458458c
    459459c cnameisccp
    460       CHARACTER *27 cnameisccp(lmaxm1,kmaxm1)
     460      CHARACTER *29 cnameisccp(lmaxm1,kmaxm1)
    461461cIM bad 151205     DATA cnameisccp/'pc< 50hPa, tau< 0.3',
    462462      DATA cnameisccp/'pc= 50-180hPa, tau< 0.3',
    … …  
    12021202c         pmflxr=0.
    12031203c         pmflxs=0.
    1204         first=.false.
     1204        first=.false.
    12051205
    12061206      endif  ! first
    … …  
    18221822        call writefield_phy('v_seri',v_seri,llm)
    18231823        call writefield_phy('t_seri',t_seri,llm)
    1824         call writefield_phy('q_seri',q_seri,llm)
     1824        call writefield_phy('q_seri',q_seri,llm)
    18251825      endif
    18261826
    … …  
    18791879        call writefield_phy('v_seri',v_seri,llm)
    18801880        call writefield_phy('t_seri',t_seri,llm)
    1881         call writefield_phy('q_seri',q_seri,llm)
     1881        call writefield_phy('q_seri',q_seri,llm)
    18821882      endif
    18831883
    … …  
    21832183        call writefield_phy('v_seri',v_seri,llm)
    21842184        call writefield_phy('t_seri',t_seri,llm)
    2185         call writefield_phy('q_seri',q_seri,llm)
     2185        call writefield_phy('q_seri',q_seri,llm)
    21862186      endif
    21872187
    … …  
    23062306      clwcon0th(:,:)=0.
    23072307c
    2308       fm_therm(:,:)=0.
    2309       entr_therm(:,:)=0.
    2310       detr_therm(:,:)=0.
     2308c      fm_therm(:,:)=0.
     2309c      entr_therm(:,:)=0.
     2310c      detr_therm(:,:)=0.
    23112311c
    23122312      IF(prt_level>9)WRITE(lunout,*)
    … …  
    26232623        call writefield_phy('v_seri',v_seri,llm)
    26242624        call writefield_phy('t_seri',t_seri,llm)
    2625         call writefield_phy('q_seri',q_seri,llm)
     2625        call writefield_phy('q_seri',q_seri,llm)
    26262626      endif
    26272627
    … …  
    28042804       IF (thermcep) THEN
    28052805        IF(zt2m(i).LT.RTT) then
    2806         Lheat=RLSTT
    2807         ELSE
    2808         Lheat=RLVTT
     2806        Lheat=RLSTT
     2807        ELSE
     2808        Lheat=RLVTT
    28092809        ENDIF
    28102810       ELSE
    … …  
    28122812         Lheat=RLSTT
    28132813        ELSE
    2814         Lheat=RLVTT
     2814        Lheat=RLVTT
    28152815        ENDIF
    28162816       ENDIF
    … …  
    28672867     $                          cdragm,
    28682868     $                          pctsrf,
    2869      $                          pdtphys,
    2870      $                          itap)
     2869     $                          pdtphys,
     2870     $                            itap)
    28712871
    28722872         CALL VTe(VTinca)
    … …  
    29232923        call writefield_phy('v_seri',v_seri,llm)
    29242924        call writefield_phy('t_seri',t_seri,llm)
    2925         call writefield_phy('q_seri',q_seri,llm)
     2925       call writefield_phy('q_seri',q_seri,llm)
    29262926      endif
    29272927     
    … …  
    30023002        call writefield_phy('v_seri',v_seri,llm)
    30033003        call writefield_phy('t_seri',t_seri,llm)
    3004         call writefield_phy('q_seri',q_seri,llm)
     3004        call writefield_phy('q_seri',q_seri,llm)
    30053005      endif
    30063006 
    … …  
    30833083        call writefield_phy('v_seri',v_seri,llm)
    30843084        call writefield_phy('t_seri',t_seri,llm)
    3085         call writefield_phy('q_seri',q_seri,llm)
     3085        call writefield_phy('q_seri',q_seri,llm)
    30863086      endif
    30873087     
    … …  
    31473147        call writefield_phy('v_seri',v_seri,llm)
    31483148        call writefield_phy('t_seri',t_seri,llm)
    3149         call writefield_phy('q_seri',q_seri,llm)
     3149        call writefield_phy('q_seri',q_seri,llm)
    31503150      endif
    31513151
    … …  
    32503250
    32513251         print*,'Attention on met a 0 les thermiques pour phystoke'
    3252         call phystokenc (
     3252        call phystokenc (
    32533253     I                   nlon,klev,pdtphys,rlon,rlat,
    32543254     I                   t,pmfu, pmfd, pen_u, pde_u, pen_d, pde_d,
    … …  
    34033403        call writefield_phy('v_seri',v_seri,llm)
    34043404        call writefield_phy('t_seri',t_seri,llm)
    3405         call writefield_phy('q_seri',q_seri,llm)
     3405        call writefield_phy('q_seri',q_seri,llm)
    34063406      endif
    34073407
Note: See TracChangeset for help on using the changeset viewer.