/[MITgcm]/MITgcm/pkg/fizhi/fizhi_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_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 Jan 29 14:22:24 2004 UTC revision 1.5 by molod, Mon Jul 26 18:45:17 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4    #include "FIZHI_OPTIONS.h"
5  CBOP  CBOP
6  C     !ROUTINE: FIZHI_READ_PICKUP  C     !ROUTINE: FIZHI_READ_PICKUP
7  C     !INTERFACE:  C     !INTERFACE:
# Line 15  CEOP Line 19  CEOP
19        IMPLICIT NONE        IMPLICIT NONE
20    
21  C     == Global variables ===  C     == Global variables ===
 #include "CPP_OPTIONS.h"  
22  #include "SIZE.h"  #include "SIZE.h"
23  #include "fizhi_SIZE.h"  #include "fizhi_SIZE.h"
24  #include "land_SIZE.h"  #include "fizhi_land_SIZE.h"
25  #include "fizhi_coms.h"  #include "fizhi_coms.h"
26  #include "land_coms.h"  #include "fizhi_land_coms.h"
27  #include "EEPARAMS.h"  #include "EEPARAMS.h"
28  #include "PARAMS.h"  #include "PARAMS.h"
29    
# Line 33  C     myThid  :: Number of this instance Line 36  C     myThid  :: Number of this instance
36  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
37  C     fn      :: character buffer for creating filename  C     fn      :: character buffer for creating filename
38  C     prec    :: precision of pickup files  C     prec    :: precision of pickup files
 C     lgf     :: flag to write "global" files  
39  C     k       :: loop index  C     k       :: loop index
40        INTEGER prec, iChar, lChar, k        INTEGER prec
41        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
       LOGICAL lgf  
42    
43        WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter        WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter
44        prec = precFloat64        prec = precFloat64
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22