Changeset 3798 for LMDZ6/branches/Ocean_skin/libf/phylmd/Dust/dustemission_mod.F90

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/dustemission_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Ocean_skin/libf/phylmd/Dust/dustemission_mod.F90

@@ -153 +153 @@
 !======================================================================================
 !--------------------------------------------------------------------------------------
+
+  SUBROUTINE dustemis_out_init()
+
+    USE dimphy
+
+    !AS: moved here from subroutine initdust
+    ALLOCATE( m1dflux(klon) )
+    ALLOCATE( m2dflux(klon) )
+    ALLOCATE( m3dflux(klon) )
+
+  END SUBROUTINE dustemis_out_init
 
   SUBROUTINE dustemission( debutphy, xlat, xlon, &    !Input
@@ -625 +636 @@
     ALLOCATE( srel(nats,nclass) )
     ALLOCATE( srel2(nats,nclass) )
-    ALLOCATE( m1dflux(klon) )
-    ALLOCATE( m2dflux(klon) )
-    ALLOCATE( m3dflux(klon) )
+    !!AS: moved to subroutine dustemission_output_init
+    !ALLOCATE( m1dflux(klon) )
+    !ALLOCATE( m2dflux(klon) )
+    !ALLOCATE( m3dflux(klon) )