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

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

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

revision 1.4 by stephd, Thu Aug 18 18:24:29 2005 UTC revision 1.5 by jmc, Mon Nov 5 19:02:08 2007 UTC
# Line 22  C     == GLobal variables == Line 22  C     == GLobal variables ==
22  #include "PARAMS.h"  #include "PARAMS.h"
23  #include "GRID.h"  #include "GRID.h"
24  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
25  #include "PTRACERS.h"  #include "PTRACERS_PARAMS.h"
26    #include "PTRACERS_FIELDS.h"
27  #include "GCHEM.h"  #include "GCHEM.h"
28  #include "DIC_ABIOTIC.h"  #include "DIC_ABIOTIC.h"
29  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
# Line 75  cswdmonth -end- Line 76  cswdmonth -end-
76              po4var(k)=0.d0              po4var(k)=0.d0
77              o2var(k)=0.d0              o2var(k)=0.d0
78              volvar(k)=0.d0              volvar(k)=0.d0
79            enddo            enddo
80  cswdmonth  cswdmonth
81            do k=1,3            do k=1,3
82             do it=1,12             do it=1,12
# Line 87  cswdmonth Line 88  cswdmonth
88             enddo             enddo
89            enddo            enddo
90           ENDDO           ENDDO
91          ENDDO          ENDDO
92          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
93          CALL READ_FLD_XYZ_RL( 'input/po4obs.bin', ' ',          CALL READ_FLD_XYZ_RL( 'input/po4obs.bin', ' ',
94       &                          po4obs, 0, myThid )               &                          po4obs, 0, myThid )
95          CALL READ_FLD_XYZ_RL( 'input/o2obs.bin', ' ',          CALL READ_FLD_XYZ_RL( 'input/o2obs.bin', ' ',
96       &                          o2obs, 0, myThid )       &                          o2obs, 0, myThid )
97  cswdmonth  cswdmonth
98          CALL READ_FLD_XYZ_RL( 'input/po4lev1.bin', ' ',          CALL READ_FLD_XYZ_RL( 'input/po4lev1.bin', ' ',
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22