/[lmdze]/trunk/Sources/phylmd/physiq.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/physiq.f

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

revision 56 by guez, Tue Jan 10 19:02:02 2012 UTC revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC
# Line 35  contains Line 35  contains
35      use drag_noro_m, only: drag_noro      use drag_noro_m, only: drag_noro
36      USE fcttre, ONLY: foeew, qsatl, qsats, thermcep      USE fcttre, ONLY: foeew, qsatl, qsats, thermcep
37      USE hgardfou_m, ONLY: hgardfou      USE hgardfou_m, ONLY: hgardfou
38      USE histcom, ONLY: histsync      USE histsync_m, ONLY: histsync
39      USE histwrite_m, ONLY: histwrite      USE histwrite_m, ONLY: histwrite
40      USE indicesol, ONLY: clnsurf, epsfra, is_lic, is_oce, is_sic, is_ter, &      USE indicesol, ONLY: clnsurf, epsfra, is_lic, is_oce, is_sic, is_ter, &
41           nbsrf           nbsrf
# Line 905  contains Line 905  contains
905      ! Mettre en action les conditions aux limites (albedo, sst, etc.).      ! Mettre en action les conditions aux limites (albedo, sst, etc.).
906    
907      ! Prescrire l'ozone et calculer l'albedo sur l'ocean.      ! Prescrire l'ozone et calculer l'albedo sur l'ocean.
908      if (nqmx >= 5) then      wo = ozonecm(REAL(julien), paprs)
        wo = qx(:, :, 5) * zmasse / dobson_u / 1e3  
     else IF (MOD(itap - 1, lmt_pas) == 0) THEN  
        wo = ozonecm(REAL(julien), paprs)  
     ENDIF  
909    
910      ! Évaporation de l'eau liquide nuageuse :      ! Évaporation de l'eau liquide nuageuse :
911      DO k = 1, llm      DO k = 1, llm
Legend:
Removed from v.56  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.21