Changeset 1350 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Sep 29, 2014, 9:24:04 AM (10 years ago)

Author:

emillour

Message:

Generic model physics:

• Added missing allocation in soil_settings, needed when changing number of soil layers.

EM

File:

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

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

@@ -88 +88 @@
         ! soil temperatures and thermal inertia will be requiered
           interpol=.true.
+        ! allocate olmlayer  
+          allocate(oldmlayer(dimlen),stat=ierr)
+          if (ierr.ne.0) then
+            write(*,*) 'soil_settings: failed allocation of oldmlayer!'
+            stop
+          endif
         endif
 ! 1.2 Find out the # of dimensions <inertiedat> was defined as using