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

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

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

revision 224 by guez, Thu Apr 20 14:44:47 2017 UTC revision 225 by guez, Mon Oct 16 12:35:41 2017 UTC
# Line 170  contains Line 170  contains
170                 "rugosite "//clnsurf(nsrf), "-",   &                 "rugosite "//clnsurf(nsrf), "-",   &
171                 iim, (jjm + 1), nhori, 1, 1, 1, -99, &                 iim, (jjm + 1), nhori, 1, 1, 1, -99, &
172                 "inst(X)", zsto, zout)                 "inst(X)", zsto, zout)
173              call histdef(nid_ins, "u10m_"//clnsurf(nsrf),  &
174                   "zonal wind 10 m "//clnsurf(nsrf), "m s-1",   &
175                   iim, (jjm + 1), nhori, 1, 1, 1, -99, &
176                   "inst(X)", zsto, zout)
177              call histdef(nid_ins, "v10m_"//clnsurf(nsrf),  &
178                   "meridional wind 10 m "//clnsurf(nsrf), "m s-1",   &
179                   iim, (jjm + 1), nhori, 1, 1, 1, -99, &
180                   "inst(X)", zsto, zout)
181         END DO         END DO
182    
183         CALL histdef(nid_ins, "rugs", "rugosity", "-", &         CALL histdef(nid_ins, "rugs", "rugosity", "-", &
Legend:
Removed from v.224  
changed lines
  Added in v.225
  ViewVC Help
Powered by ViewVC 1.1.21