Changeset 1350

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

Location:

trunk/LMDZ.GENERIC

Files:

• README (modified) (1 diff)
• libf/phystd/soil_settings.F (modified) (1 diff)

trunk/LMDZ.GENERIC/README

@@ -1047 +1047 @@
 - corrected insolation calculation in locked and inclined case (proper calculation of sub solar longitude and declination)
 - in the ring shadow calculation, temporary variables for the orbbital parameters are now used (we want the declin and RA output at the same time w and wo rings)
+
+== 29/09/2014 == EM
+- Added missing allocation in soil_settings, needed when changing number of
+  soil layers.

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