Changeset 3798 for LMDZ6/branches/Ocean_skin/libf/phylmd/Dust/read_newemissions.F

Timestamp:

Jan 11, 2021, 11:24:08 PM (4 years ago)

Author:

lguez

Message:

Sync latest trunk changes to Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/Dust/read_newemissions.F (modified) (1 diff)

LMDZ6/branches/Ocean_skin/libf/phylmd/Dust/read_newemissions.F

@@ -59 +59 @@
 !$OMP THREADPRIVATE(u10m_ec1, v10m_ec1, dust_ec1)
 !$OMP THREADPRIVATE(u10m_ec2, v10m_ec2, dust_ec2)
-      REAL u10m_nc(iip1,jjp1), v10m_nc(iip1,jjp1)
+c as      REAL u10m_nc(iip1,jjp1), v10m_nc(iip1,jjp1)
       REAL u10m_ec(klon), v10m_ec(klon), dust_ec(klon)
 c      REAL cly(klon), wth(klon), zprecipinsoil(klon)