Changeset 3806 for LMDZ6/trunk/libf/phylmd/Dust/read_vent.F

Timestamp:

Jan 20, 2021, 6:36:39 PM (3 years ago)

Author:

asima

Message:

SPLA code cleaning :
concerns the updating from LMDZ5 to LMDZ6 (rev 3786),
and other obsolete lines and fragments, like everything related to "ok_histrac" flag
(which sent SPLA output in a "histrac.nc" file using IOIPSL; in 2014 J Escribano included SPLA output in the usual LMDZ hist* files.)

File:

• LMDZ6/trunk/libf/phylmd/Dust/read_vent.F (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/Dust/read_vent.F

@@ -33 +33 @@
 c
          ncidu1=NCOPN('u10m.nc',NCNOWRIT,rcode)
-         varidu1=NCVID(ncidu1,'UWND',rcode)
+         varidu1=NCVID(ncidu1,'U10M',rcode)
          ncidv1=NCOPN('v10m.nc',NCNOWRIT,rcode)
-         varidv1=NCVID(ncidv1,'VWND',rcode)
+         varidv1=NCVID(ncidv1,'V10M',rcode)
 c
       endif