/[lmdze]/trunk/libf/phylmd/physiq.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/physiq.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 53 by guez, Fri Oct 7 13:11:58 2011 UTC revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC
# Line 50  contains Line 50  contains
50      USE phytrac_m, ONLY: phytrac      USE phytrac_m, ONLY: phytrac
51      USE qcheck_m, ONLY: qcheck      USE qcheck_m, ONLY: qcheck
52      use radlwsw_m, only: radlwsw      use radlwsw_m, only: radlwsw
53        use sugwd_m, only: sugwd
54      USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt      USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt
55      USE temps, ONLY: annee_ref, day_ref, itau_phy      USE temps, ONLY: annee_ref, day_ref, itau_phy
56      USE yoethf_m, ONLY: r2es, rvtmp2      USE yoethf_m, ONLY: r2es, rvtmp2
# Line 776  contains Line 777  contains
777    
778         IF (ok_orodr) THEN         IF (ok_orodr) THEN
779            rugoro = MAX(1e-5, zstd * zsig / 2)            rugoro = MAX(1e-5, zstd * zsig / 2)
780            CALL SUGWD(klon, llm, paprs, play)            CALL SUGWD(paprs, play)
781         else         else
782            rugoro = 0.            rugoro = 0.
783         ENDIF         ENDIF
Legend:
Removed from v.53  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.21