/[lmdze]/trunk/phylmd/Interface_surf/stdlevvar.f90
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/stdlevvar.f90

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

revision 341 by guez, Mon Oct 21 06:11:44 2019 UTC revision 342 by guez, Mon Oct 21 13:52:44 2019 UTC
# Line 7  contains Line 7  contains
7    SUBROUTINE stdlevvar(nsrf, u1, v1, t1, q1, z1, ts1, qsurf, rugos, psol, &    SUBROUTINE stdlevvar(nsrf, u1, v1, t1, q1, z1, ts1, qsurf, rugos, psol, &
8         pat1, t_2m, q_2m, t_10m, q_10m, wind10m, ustar)         pat1, t_2m, q_2m, t_10m, q_10m, wind10m, ustar)
9    
10      ! From LMDZ4/libf/phylmd/stdlevvar.F90, version 1.3, 2005/05/25 13:10:09      ! From LMDZ4/libf/phylmd/stdlevvar.F90, version 1.3, 2005 May 25th
11    
12      ! Objet : calcul de la température et de l'humidité relative à 2 m      ! Objet : calcul de la température et de l'humidité relative à 2 m
13      ! et du module du vent à 10 m à partir des relations de      ! et du module du vent à 10 m à partir des relations de
# Line 17  contains Line 17  contains
17    
18      ! Author: I. Musat, July 1st, 2002      ! Author: I. Musat, July 1st, 2002
19    
20        ! Library:
21      use nr_util, only: assert_eq      use nr_util, only: assert_eq
22    
23      use cdrag_m, only: cdrag      use cdrag_m, only: cdrag
# Line 60  contains Line 61  contains
61      DOUBLE PRECISION, dimension(klon):: lmon      DOUBLE PRECISION, dimension(klon):: lmon
62      REAL, dimension(klon):: delu, delte, delq      REAL, dimension(klon):: delu, delte, delq
63      REAL, dimension(klon):: u_zref, te_zref, q_zref      REAL, dimension(klon):: u_zref, te_zref, q_zref
64      REAL, dimension(klon):: temp      REAL temp(size(u1)) ! (knon)
65      real pref(size(u1)) ! (knon)      real pref(size(u1)) ! (knon)
66    
67      !-------------------------------------------------------------------------      !-------------------------------------------------------------------------
Legend:
Removed from v.341  
changed lines
  Added in v.342
  ViewVC Help
Powered by ViewVC 1.1.21