/[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.22 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.22.4.1 by heimbach, Thu Nov 7 16:48:46 2002 UTC
# Line 54  CEOP Line 54  CEOP
54            surfaceTendencyV(i,j,bi,bj) = 0. _d 0            surfaceTendencyV(i,j,bi,bj) = 0. _d 0
55            surfaceTendencyT(i,j,bi,bj) = 0. _d 0            surfaceTendencyT(i,j,bi,bj) = 0. _d 0
56            surfaceTendencyS(i,j,bi,bj) = 0. _d 0            surfaceTendencyS(i,j,bi,bj) = 0. _d 0
57    #ifndef INCLUDE_EXTERNAL_FORCING_PACKAGE
58              taux0           (i,j,bi,bj) = 0. _d 0
59              taux1           (i,j,bi,bj) = 0. _d 0
60              tauy0           (i,j,bi,bj) = 0. _d 0
61              tauy1           (i,j,bi,bj) = 0. _d 0
62              Qnet0           (i,j,bi,bj) = 0. _d 0
63              Qnet1           (i,j,bi,bj) = 0. _d 0
64              EmPmR0          (i,j,bi,bj) = 0. _d 0
65              EmPmR1          (i,j,bi,bj) = 0. _d 0
66              SST0            (i,j,bi,bj) = 0. _d 0
67              SST1            (i,j,bi,bj) = 0. _d 0
68              SSS0            (i,j,bi,bj) = 0. _d 0
69              SSS1            (i,j,bi,bj) = 0. _d 0
70              Qsw0            (i,j,bi,bj) = 0. _d 0
71              Qsw1            (i,j,bi,bj) = 0. _d 0
72    #endif
73           ENDDO           ENDDO
74          ENDDO          ENDDO
75         ENDDO         ENDDO
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.22.4.1
  ViewVC Help
Powered by ViewVC 1.1.22