/[MITgcm]/MITgcm/model/src/ini_forcing.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_forcing.F

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

revision 1.23 by mlosch, Wed Jul 31 16:38:31 2002 UTC revision 1.24 by heimbach, Tue Nov 12 20:39:46 2002 UTC
# Line 63  CEOP Line 63  CEOP
63            surfaceTendencyV(i,j,bi,bj) = 0. _d 0            surfaceTendencyV(i,j,bi,bj) = 0. _d 0
64            surfaceTendencyT(i,j,bi,bj) = 0. _d 0            surfaceTendencyT(i,j,bi,bj) = 0. _d 0
65            surfaceTendencyS(i,j,bi,bj) = 0. _d 0            surfaceTendencyS(i,j,bi,bj) = 0. _d 0
66    #ifndef INCLUDE_EXTERNAL_FORCING_PACKAGE
67              taux0           (i,j,bi,bj) = 0. _d 0
68              taux1           (i,j,bi,bj) = 0. _d 0
69              tauy0           (i,j,bi,bj) = 0. _d 0
70              tauy1           (i,j,bi,bj) = 0. _d 0
71              Qnet0           (i,j,bi,bj) = 0. _d 0
72              Qnet1           (i,j,bi,bj) = 0. _d 0
73              EmPmR0          (i,j,bi,bj) = 0. _d 0
74              EmPmR1          (i,j,bi,bj) = 0. _d 0
75              SST0            (i,j,bi,bj) = 0. _d 0
76              SST1            (i,j,bi,bj) = 0. _d 0
77              SSS0            (i,j,bi,bj) = 0. _d 0
78              SSS1            (i,j,bi,bj) = 0. _d 0
79    #ifdef SHORTWAVE_HEATING          
80              Qsw0            (i,j,bi,bj) = 0. _d 0
81              Qsw1            (i,j,bi,bj) = 0. _d 0
82    #endif
83    #ifdef ATMOSPHERIC_LOADING
84              pload0          (i,j,bi,bj) = 0. _d 0
85              pload1          (i,j,bi,bj) = 0. _d 0
86    #endif
87    #endif
88           ENDDO           ENDDO
89          ENDDO          ENDDO
90         ENDDO         ENDDO
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22