Changeset 561 for trunk/NEMO/TOP_SRC/trcrst.F90

Timestamp:

2006-11-13T14:29:55+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_073:CE:well used of iom module to read variables in CFC's restart files

File:

• trunk/NEMO/TOP_SRC/trcrst.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/trcrst.F90

@@ -202 +202 @@
       clname  = 'qint'
       clname1 = 'qtr'
-
-      CALL iom_get( inum, jpdom_local, clname , qint(:,:,:) ) 
-      CALL iom_get( inum, jpdom_local, clname1, qtr (:,:,:) )        
+      DO jn = 1, jptra
+         CALL iom_get( inum, jpdom_unknown, clname,  qint(:,:,jn), jn )
+         CALL iom_get( inum, jpdom_unknown, clname1, qtr (:,:,jn), jn )
+      ENDDO
 #endif