Changeset 2278 for trunk/LMDZ.GENERIC/libf/phystd/vdifc.F

Timestamp:

Apr 7, 2020, 10:15:46 AM (5 years ago)

Author:

emillour

Message:

Generic GCM:

• Get rid of "zerophys"; modern Fortran syntax is better to initialize an array.

EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/vdifc.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/vdifc.F

@@ -432 +432 @@
          end do
 
-         call zerophys(ngrid*nq,pdqsdif)
+         pdqsdif(1:ngrid,1:nq)=0
 
 !     Implicit inversion of q