/[MITgcm]/MITgcm/pkg/ebm/ebm_load_climatology.F
ViewVC logotype

Diff of /MITgcm/pkg/ebm/ebm_load_climatology.F

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

revision 1.4 by jmc, Sun Aug 30 22:06:22 2009 UTC revision 1.5 by jmc, Sun Aug 28 17:35:38 2011 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "EBM_OPTIONS.h"  #include "EBM_OPTIONS.h"
5    
6  CStartOfInterface  CBOP 0
7    C !ROUTINE: EBM_LOAD_CLIMATOLOGY
8    
9    C !INTERFACE:
10        SUBROUTINE EBM_LOAD_CLIMATOLOGY( myThid )        SUBROUTINE EBM_LOAD_CLIMATOLOGY( myThid )
 C     |==========================================================|  
 C     | S/R EBM_LOAD_CLIMATOLOGY                                 |  
 C     |==========================================================|  
11    
12    C     !DESCRIPTION:
13    C     *==========================================================*
14    C     | S/R EBM_LOAD_CLIMATOLOGY
15    C     *==========================================================*
16    
17    C     !USES:
18          IMPLICIT NONE
19  C     === Global variables ===  C     === Global variables ===
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "GRID.h"  #include "GRID.h"
22  #include "EEPARAMS.h"  #include "EEPARAMS.h"
23  #include "PARAMS.h"  #include "PARAMS.h"
24  #include "FFIELDS.h"  #include "FFIELDS.h"
 #include "DYNVARS.h"  
25  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
26  # include "EBM.h"  # include "EBM.h"
27  #endif  #endif
 C     === Routine arguments ===  
       INTEGER myThid  
28    
29  CEndOfInterface  C     !INPUT PARAMETERS:
30    C     myThid     :: my Thread Id number
31          INTEGER myThid
32    CEOP
33    
34  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
35    C     !LOCAL VARIABLES:
 C     === Local variables ===  
 C     msgBuf - Error message buffer  
36        INTEGER bi,bj,i,j        INTEGER bi,bj,i,j
37        _RL distY,tauX,tauMax,lY        _RL distY,tauX,tauMax,lY
38    
# Line 90  c          tauX  = -tauMax*cos(2. _d 0*P Line 95  c          tauX  = -tauMax*cos(2. _d 0*P
95        _EXCH_XY_RS( Run, myThid )        _EXCH_XY_RS( Run, myThid )
96        CALL EXCH_UV_XY_RS( fu, fv, .TRUE., myThid )        CALL EXCH_UV_XY_RS( fu, fv, .TRUE., myThid )
97    
98        CALL PLOT_FIELD_XYRS( SST, 'Theta Climatology' , 1, myThid )        IF ( debugLevel.GE.debLevC ) THEN
99        CALL PLOT_FIELD_XYRS( SSS, 'Salt  Climatology' , 1, myThid )          CALL PLOT_FIELD_XYRS( SST, 'Theta Climatology' , 1, myThid )
100        CALL PLOT_FIELD_XYRS( Run, 'Runoff Climatology' , 1, myThid )          CALL PLOT_FIELD_XYRS( SSS, 'Salt  Climatology' , 1, myThid )
101        CALL PLOT_FIELD_XYRS( fu,          CALL PLOT_FIELD_XYRS( Run, 'Runoff Climatology', 1, myThid )
102       &   'WIND_STRESS_CLIMATOLOGY FU',1,myThid)          CALL PLOT_FIELD_XYRS(fu,'Wind Stress Climatology FU',1,myThid)
103        CALL PLOT_FIELD_XYRS( fv,          CALL PLOT_FIELD_XYRS(fv,'Wind Stress Climatology FV',1,myThid)
104       &   'WIND_STRESS_CLIMATOLOGY FV',1,myThid)        ENDIF
105    
106  #endif  #endif /* ALLOW_EBM */
107    
108        RETURN        RETURN
109        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22