Changes between Version 119 and Version 120 of user/flavoni/libIGCM

Timestamp:

2009-01-23T11:09:40+01:00 (15 years ago)

Author:

flavoni

Comment:

--

user/flavoni/libIGCM

@@ -291 +291 @@
  difference with the old one: [[BR]]
 
- in line 74:     INTEGER  jf, '''ji, jj''' ! dummy indices[[BR]]
-
- 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 74
+
+ INTEGER  jf, '''ji, jj''' ! dummy indices[[BR]]
+
+ in line 94-99: 
+ 
+ '''DO jj = 1, jpj'''
+  '''DO ji = 1, jpi'''
+   '''sd(jf)%fdta(ji,jj,1) = sd(jf)%fdta(ji,jj,2)'''
+  '''END DO'''
+'''END DO'''
+
+
+ in lines 164-169:
+
+ '''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