Changeset 2026 for trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

Timestamp:

Oct 25, 2018, 5:25:58 PM (6 years ago)

Author:

jvatant

Message:

Radiative transfer init minor change
-> Make L_NGAUSS be read by master in g.dat by sugas_corrk as for L_NPREF,L_NTREF ...
-- JVO.

File:

• trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

@@ -964 +964 @@
         IF( ALLOCATED( wrefvar ) ) DEALLOCATE( wrefvar )
         IF( ALLOCATED( pfgasref ) ) DEALLOCATE( pfgasref )
+        IF( ALLOCATED( gweight ) ) DEALLOCATE( gweight )
 !$OMP END MASTER
 !$OMP BARRIER