/[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.6.1 by heimbach, Fri Mar 7 23:10:21 2003 UTC
# Line 49  CEOP Line 49  CEOP
49            EmPmR           (i,j,bi,bj) = 0. _d 0            EmPmR           (i,j,bi,bj) = 0. _d 0
50            SST             (i,j,bi,bj) = 0. _d 0            SST             (i,j,bi,bj) = 0. _d 0
51            SSS             (i,j,bi,bj) = 0. _d 0            SSS             (i,j,bi,bj) = 0. _d 0
52    #ifdef SHORTWAVE_HEATING          
53            Qsw             (i,j,bi,bj) = 0. _d 0            Qsw             (i,j,bi,bj) = 0. _d 0
54    #else
55              Qsw             (1,1,1,1)   = 0. _d 0
56    #endif
57    #ifdef ATMOSPHERIC_LOADING
58              pload           (i,j,bi,bj) = 0. _d 0
59    #endif
60            surfaceTendencyU(i,j,bi,bj) = 0. _d 0            surfaceTendencyU(i,j,bi,bj) = 0. _d 0
61            surfaceTendencyV(i,j,bi,bj) = 0. _d 0            surfaceTendencyV(i,j,bi,bj) = 0. _d 0
62            surfaceTendencyT(i,j,bi,bj) = 0. _d 0            surfaceTendencyT(i,j,bi,bj) = 0. _d 0
63            surfaceTendencyS(i,j,bi,bj) = 0. _d 0            surfaceTendencyS(i,j,bi,bj) = 0. _d 0
64    #ifndef INCLUDE_EXTERNAL_FORCING_PACKAGE
65              taux0           (i,j,bi,bj) = 0. _d 0
66              taux1           (i,j,bi,bj) = 0. _d 0
67              tauy0           (i,j,bi,bj) = 0. _d 0
68              tauy1           (i,j,bi,bj) = 0. _d 0
69              Qnet0           (i,j,bi,bj) = 0. _d 0
70              Qnet1           (i,j,bi,bj) = 0. _d 0
71              EmPmR0          (i,j,bi,bj) = 0. _d 0
72              EmPmR1          (i,j,bi,bj) = 0. _d 0
73              SST0            (i,j,bi,bj) = 0. _d 0
74              SST1            (i,j,bi,bj) = 0. _d 0
75              SSS0            (i,j,bi,bj) = 0. _d 0
76              SSS1            (i,j,bi,bj) = 0. _d 0
77    #ifdef SHORTWAVE_HEATING          
78              Qsw0            (i,j,bi,bj) = 0. _d 0
79              Qsw1            (i,j,bi,bj) = 0. _d 0
80    #endif
81    #ifdef ATMOSPHERIC_LOADING
82              pload0          (i,j,bi,bj) = 0. _d 0
83              pload1          (i,j,bi,bj) = 0. _d 0
84    #endif
85    #endif
86           ENDDO           ENDDO
87          ENDDO          ENDDO
88         ENDDO         ENDDO
# Line 83  C Line 112  C
112         CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid )         CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid )
113        ENDIF        ENDIF
114  #endif  #endif
115    #ifdef ATMOSPHERIC_LOADING
116          IF ( pLoadFile .NE. ' '  ) THEN
117           CALL READ_FLD_XY_RS( pLoadFile, ' ', pload, 0, myThid )
118          ENDIF
119    #endif
120        _END_MASTER(myThid)        _END_MASTER(myThid)
121  C  C
122        _EXCH_XY_R4(fu   , myThid )        _EXCH_XY_R4(fu   , myThid )
# Line 91  C Line 125  C
125        _EXCH_XY_R4(EmPmR, myThid )        _EXCH_XY_R4(EmPmR, myThid )
126        _EXCH_XY_R4(SST  , myThid )        _EXCH_XY_R4(SST  , myThid )
127        _EXCH_XY_R4(SSS  , myThid )        _EXCH_XY_R4(SSS  , myThid )
128    #ifdef SHORTWAVE_HEATING
129        _EXCH_XY_R4(Qsw  , myThid )        _EXCH_XY_R4(Qsw  , myThid )
130    #endif
131    #ifdef ATMOSPHERIC_LOADING
132          _EXCH_XY_R4(pload  , myThid )
133    C     CALL PLOT_FIELD_XYRS( pload, 'S/R INI_FORCING pload',1,myThid)
134    #endif
135    
136  C     CALL PLOT_FIELD_XYRS( fu, 'S/R INI_FORCING FU',1,myThid)  C     CALL PLOT_FIELD_XYRS( fu, 'S/R INI_FORCING FU',1,myThid)
137  C     CALL PLOT_FIELD_XYRS( fv, 'S/R INI_FORCING FV',1,myThid)  C     CALL PLOT_FIELD_XYRS( fv, 'S/R INI_FORCING FV',1,myThid)
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.22.6.1
  ViewVC Help
Powered by ViewVC 1.1.22