Changes between Version 114 and Version 115 of user/flavoni/libIGCM

Timestamp:

2009-01-23T10:50:18+01:00 (15 years ago)

Author:

flavoni

Comment:

--

user/flavoni/libIGCM

@@ -279 +279 @@
 )
 
-
  * '''BB_make'''
+
  * '''AA_job'''
 
@@ -288 +288 @@
 
  * '''fldread.F90'''
+
+ difference with the old one: [[BR]]
+
+ in line 74
+       INTEGER  ::   jf, '''ji, jj''' ! dummy indices
+
+ in line 94,99
+                '''DO jj = 1, jpj'''
+                '''DO ji = 1, jpi'''
+               '''sd(jf)%fdta(ji,jj,1) = sd(jf)%fdta(ji,jj,2)'''
+ !               sd(jf)%fdta(:,:,1) = sd(jf)%fdta(:,:,2)
+               ''' END DO'''
+               ''' END DO'''
+ in line 164c169,173
+                sd(jf)%fnow(:,:) = ztintb * sd(jf)%fdta(:,:,1) + ztinta * sd(jf)%fdta(:,:,2)
+
+                DO jj = 1, jpj
+                   DO ji = 1, jpi
+                sd(jf)%fnow(ji,jj) = ztintb * sd(jf)%fdta(ji,jj,1) + ztinta * sd(jf)%fdta(ji,jj,2)
+                   END DO
+                END DO
+ in line 172c181,186
+<                sd(jf)%fnow(:,:) = sd(jf)%fdta(:,:,2)   ! piecewise constant field
+---
+>                DO jj = 1, jpj
+>                   DO ji = 1, jpi
+>                sd(jf)%fnow(ji,jj) = sd(jf)%fdta(ji,jj,2)   ! piecewise constant field
+> !!               sd(jf)%fnow(:,:) = sd(jf)%fdta(:,:,2)   ! piecewise constant field
+>                   END DO
+>                END DO
+
+
+
  * '''mod.def'''