Changes between Version 121 and Version 122 of user/flavoni/libIGCM

Timestamp:

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

Author:

flavoni

Comment:

--

user/flavoni/libIGCM

@@ -300 +300 @@
   '''DO ji = 1, jpi'''
    '''sd(jf)%fdta(ji,jj,1) = sd(jf)%fdta(ji,jj,2)'''
-  '''END DO'''
+  '''END DO'''[[BR]]
 '''END DO'''
 
@@ -313 +313 @@
  '''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
+ in lines 172-181:
+
+ '''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'''
+  '''END DO'''
+ '''END DO'''