/[lmdze]/trunk/phylmd/stdlevvar.f
ViewVC logotype

Diff of /trunk/phylmd/stdlevvar.f

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

revision 274 by guez, Wed Jul 11 16:50:27 2018 UTC revision 275 by guez, Wed Jul 11 17:06:09 2018 UTC
# Line 19  contains Line 19  contains
19    
20      use nr_util, only: assert_eq      use nr_util, only: assert_eq
21    
22      use coefcdrag_m, only: coefcdrag      use cdrag_m, only: cdrag
23      USE dimphy, ONLY: klon      USE dimphy, ONLY: klon
24      USE suphec_m, ONLY: rg, rkappa      USE suphec_m, ONLY: rg, rkappa
25      use screenc_m, only: screenc      use screenc_m, only: screenc
# Line 72  contains Line 72  contains
72         speed(i)=SQRT(u1(i)**2+v1(i)**2)         speed(i)=SQRT(u1(i)**2+v1(i)**2)
73      ENDDO      ENDDO
74    
75      CALL coefcdrag(nsrf, speed(:knon), t1(:knon), q1(:knon), z1(:knon), &      CALL cdrag(nsrf, speed(:knon), t1(:knon), q1(:knon), z1(:knon), &
76           psol(:knon), ts1(:knon), qsurf(:knon), rugos(:knon), cdram, cdrah)           psol(:knon), ts1(:knon), qsurf(:knon), rugos(:knon), cdram, cdrah)
77    
78      ! Star variables      ! Star variables
Legend:
Removed from v.274  
changed lines
  Added in v.275
  ViewVC Help
Powered by ViewVC 1.1.21