Changeset 523 for LMDZ.3.3/branches/rel-LF/libf/phylmd/readsulfate.F

Timestamp:

May 17, 2004, 12:12:25 PM (20 years ago)

Author:

lmdzadmin

Message:

Dernieres modifs (ha, ha) sur le tag IPSL-CM4_IPCC, MED & JLD:

• avant 1930 on force la lecture des sulfates naturels
• bug de debordement de tableau dans physiq.F
• taucalv passe à 10 ans

LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/readsulfate.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/readsulfate.F

@@ -100 +100 @@
       ENDDO
 
+      IF (iyr .lt. 1930) THEN
+         WRITE(*,*) 'iyr=', iyr
+         cyear='.nat'
+         CALL getso4fromfile(cyear, so4_1)
+      ELSE
+
       ! Read in data:
       ! a) from actual 10-yr-period
@@ -124 +130 @@
       CALL getso4fromfile(cyear, so4_2)
          
+      ENDIF
+        
       ! Interpolate linarily to the actual year:
       DO it=1,12