Diff of /MITgcm_contrib/plumes/plumes_read_pickup.F

Parent Directory | Revision Log | Revision Graph | Patch

--- MITgcm_contrib/plumes/plumes_read_pickup.F	2004/05/13 22:21:45	1.1
+++ MITgcm_contrib/plumes/plumes_read_pickup.F	2004/05/25 18:08:51	1.2
@@ -1,15 +1,15 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/plumes/plumes_read_pickup.F,v 1.1 2004/05/13 22:21:45 molod Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/plumes/plumes_read_pickup.F,v 1.2 2004/05/25 18:08:51 molod Exp $
 C $Name:  $
 
 CBOP
-C     !ROUTINE: FIZHI_READ_PICKUP
+C     !ROUTINE: PLUMES_READ_PICKUP
 C     !INTERFACE:
-      SUBROUTINE FIZHI_READ_PICKUP( myIter, myThid )
+      SUBROUTINE PLUMES_READ_PICKUP( myIter, myThid )
 
 C     !DESCRIPTION: \bv
 C     *==========================================================*
-C     | S/R FIZHI_READ_PICKUP
-C     | o Reads current fizhi state from a pickup file
+C     | S/R PLUMES_READ_PICKUP
+C     | o Reads current plumes state from a pickup file
 C     *==========================================================*
 C     \ev
 
@@ -20,10 +20,9 @@
 C     == Global variables ===
 #include "CPP_OPTIONS.h"
 #include "SIZE.h"
-#include "fizhi_SIZE.h"
+#include "plumes_SIZE.h"
 #include "land_SIZE.h"
-#include "fizhi_coms.h"
-#include "land_coms.h"
+#include "plumes_coms.h"
 #include "EEPARAMS.h"
 #include "PARAMS.h"
 
@@ -42,14 +41,12 @@
       CHARACTER*(MAX_LEN_FNAM) fn
       LOGICAL lgf
 
-      WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter
+      WRITE(fn,'(A,I10.10)') 'pickup_plumes.',myIter
       prec = precFloat64
 
 C-    Read fields as consecutive records
-      CALL MDSREADFIELD(fn,prec,'RL',Nrphys,uphy,1,myThid)
-      CALL MDSREADFIELD(fn,prec,'RL',Nrphys,vphy,2,myThid)
-      CALL MDSREADFIELD(fn,prec,'RL',Nrphys,thphy,3,myThid)
-      CALL MDSREADFIELD(fn,prec,'RL',Nrphys,sphy,4,myThid)
+      CALL MDSREADFIELD(fn,prec,'RL',Nrplume,uplume,1,myThid)
+      CALL MDSREADFIELD(fn,prec,'RL',Nrplume,thplume,2,myThid)
 
       RETURN
       END