/[MITgcm]/MITgcm/pkg/dic/dic_fields_load.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_fields_load.F

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

revision 1.6 by stephd, Thu Dec 4 22:40:37 2003 UTC revision 1.7 by stephd, Thu Feb 12 16:11:46 2004 UTC
# Line 1  Line 1 
1  #include "DIC_OPTIONS.h"  #include "DIC_OPTIONS.h"
2  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
3    
4  CStartOfInterFace  CBOP
5    C !ROUTINE: DIC_FIELDS_LOAD
6    
7    C !INTERFACE: ==========================================================
8        SUBROUTINE DIC_FIELDS_LOAD (        SUBROUTINE DIC_FIELDS_LOAD (
9       I           myIter,myTime,myThid)       I           myIter,myTime,myThid)
10    
11  C     /==========================================================\  C !DESCRIPTION:
12  C     | SUBROUTINE DIC_FIELDS_LOAD  i                            |  C  Read in fields needed for CO2,O2 fluxterms, silica for pH calculation
 C     | o Read in fields needed for CO2 fluxterms                |  
 C     |==========================================================|  
       IMPLICIT NONE  
13    
14  C     == GLobal variables ==  C !USES: ===============================================================
15          IMPLICIT NONE
16  #include "SIZE.h"  #include "SIZE.h"
17  #include "DYNVARS.h"  #include "DYNVARS.h"
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 25  C     == GLobal variables == Line 26  C     == GLobal variables ==
26  #include "DIC_LOAD.h"  #include "DIC_LOAD.h"
27  #endif  #endif
28    
29  C     == Routine arguments ==  C !INPUT PARAMETERS: ===================================================
30    C  myThid               :: thread number
31    C  myIter               :: current timestep
32    C  myTime               :: current time
33        INTEGER myIter        INTEGER myIter
34        _RL myTime        _RL myTime
35        INTEGER myThid        INTEGER myThid
36    
37  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
38  C     == Local variables ==  
39    c !LOCAL VARIABLES: ===================================================
40         INTEGER bi,bj,i,j,intime0,intime1         INTEGER bi,bj,i,j,intime0,intime1
41        _RL aWght,bWght,rdt        _RL aWght,bWght,rdt
42        INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm        INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
43    CEOP
44    
45  c  c
46        IF ( periodicExternalForcing ) THEN        IF ( periodicExternalForcing ) THEN
47    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22