/[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.23 by mlosch, Wed Jul 31 16:38:31 2002 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    #else
60              pload           (1,1,1,1)   = 0. _d 0
61    #endif
62            surfaceTendencyU(i,j,bi,bj) = 0. _d 0            surfaceTendencyU(i,j,bi,bj) = 0. _d 0
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
# Line 83  C Line 92  C
92         CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid )         CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid )
93        ENDIF        ENDIF
94  #endif  #endif
95    #ifdef ATMOSPHERIC_LOADING
96          IF ( pLoadFile .NE. ' '  ) THEN
97           CALL READ_FLD_XY_RS( pLoadFile, ' ', pload, 0, myThid )
98          ENDIF
99    #endif
100        _END_MASTER(myThid)        _END_MASTER(myThid)
101  C  C
102        _EXCH_XY_R4(fu   , myThid )        _EXCH_XY_R4(fu   , myThid )
# Line 91  C Line 105  C
105        _EXCH_XY_R4(EmPmR, myThid )        _EXCH_XY_R4(EmPmR, myThid )
106        _EXCH_XY_R4(SST  , myThid )        _EXCH_XY_R4(SST  , myThid )
107        _EXCH_XY_R4(SSS  , myThid )        _EXCH_XY_R4(SSS  , myThid )
108    #ifdef SHORTWAVE_HEATING
109        _EXCH_XY_R4(Qsw  , myThid )        _EXCH_XY_R4(Qsw  , myThid )
110    #endif
111    #ifdef ATMOSPHERIC_LOADING
112          _EXCH_XY_R4(pload  , myThid )
113    C     CALL PLOT_FIELD_XYRS( pload, 'S/R INI_FORCING pload',1,myThid)
114    #endif
115    
116  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)
117  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.23
  ViewVC Help
Powered by ViewVC 1.1.22