/[MITgcm]/MITgcm_contrib/plumes/plumes_read_pickup.F
ViewVC logotype

Diff of /MITgcm_contrib/plumes/plumes_read_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by molod, Thu May 13 22:21:45 2004 UTC revision 1.2 by molod, Tue May 25 18:08:51 2004 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  CBOP  CBOP
5  C     !ROUTINE: FIZHI_READ_PICKUP  C     !ROUTINE: PLUMES_READ_PICKUP
6  C     !INTERFACE:  C     !INTERFACE:
7        SUBROUTINE FIZHI_READ_PICKUP( myIter, myThid )        SUBROUTINE PLUMES_READ_PICKUP( myIter, myThid )
8    
9  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
10  C     *==========================================================*  C     *==========================================================*
11  C     | S/R FIZHI_READ_PICKUP  C     | S/R PLUMES_READ_PICKUP
12  C     | o Reads current fizhi state from a pickup file  C     | o Reads current plumes state from a pickup file
13  C     *==========================================================*  C     *==========================================================*
14  C     \ev  C     \ev
15    
# Line 20  CEOP Line 20  CEOP
20  C     == Global variables ===  C     == Global variables ===
21  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
22  #include "SIZE.h"  #include "SIZE.h"
23  #include "fizhi_SIZE.h"  #include "plumes_SIZE.h"
24  #include "land_SIZE.h"  #include "land_SIZE.h"
25  #include "fizhi_coms.h"  #include "plumes_coms.h"
 #include "land_coms.h"  
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "PARAMS.h"  #include "PARAMS.h"
28    
# Line 42  C     k       :: loop index Line 41  C     k       :: loop index
41        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
42        LOGICAL lgf        LOGICAL lgf
43    
44        WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter        WRITE(fn,'(A,I10.10)') 'pickup_plumes.',myIter
45        prec = precFloat64        prec = precFloat64
46    
47  C-    Read fields as consecutive records  C-    Read fields as consecutive records
48        CALL MDSREADFIELD(fn,prec,'RL',Nrphys,uphy,1,myThid)        CALL MDSREADFIELD(fn,prec,'RL',Nrplume,uplume,1,myThid)
49        CALL MDSREADFIELD(fn,prec,'RL',Nrphys,vphy,2,myThid)        CALL MDSREADFIELD(fn,prec,'RL',Nrplume,thplume,2,myThid)
       CALL MDSREADFIELD(fn,prec,'RL',Nrphys,thphy,3,myThid)  
       CALL MDSREADFIELD(fn,prec,'RL',Nrphys,sphy,4,myThid)  
50    
51        RETURN        RETURN
52        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22