/[MITgcm]/MITgcm/pkg/ctrl/ctrl_map_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_map_forcing.F

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

revision 1.3 by heimbach, Mon Aug 13 18:10:26 2001 UTC revision 1.4 by heimbach, Fri Sep 28 15:15:53 2001 UTC
# Line 1  Line 1 
1    
2  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_CPPOPTIONS.h"
3    
4    CBOP
5    C     !ROUTINE: ctrl_map_ini
6    C     !INTERFACE:
7        SUBROUTINE CTRL_MAP_FORCING(myThid)        SUBROUTINE CTRL_MAP_FORCING(myThid)
8  C     /==========================================================\  
9  C     | SUBROUTINE CTRL_MAP_FORCING                              |  C     !DESCRIPTION: \bv
10  C     |==========================================================|  c     *=================================================================
11  C     \==========================================================/  c     | SUBROUTINE CTRL_MAP_FORCING                              
12    c     | Add the surface flux anomalies of the control vector
13    c     | to the model flux fields and update the tile halos.
14    c     | The control vector is defined in the header file "ctrl.h".
15    c     *=================================================================
16    C     \ev
17    
18    C     !USES:
19        IMPLICIT NONE        IMPLICIT NONE
20    
21  C     == Global variables ===  C     == Global variables ===
# Line 15  C     == Global variables === Line 25  C     == Global variables ===
25  #include "FFIELDS.h"  #include "FFIELDS.h"
26  #include "DYNVARS.h"  #include "DYNVARS.h"
27  #include "GRID.h"  #include "GRID.h"
   
28  #include "ctrl.h"  #include "ctrl.h"
29  #include "ctrl_dummy.h"  #include "ctrl_dummy.h"
30  #include "optim.h"  #include "optim.h"
31    
32    C     !INPUT/OUTPUT PARAMETERS:
33  C     == Routine arguments ==  C     == Routine arguments ==
34  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
35        INTEGER myThid        INTEGER myThid
36    
37    C     !LOCAL VARIABLES:
38  C     == Local variables ==  C     == Local variables ==
39        integer bi,bj        integer bi,bj
40        integer i,j,k        integer i,j,k
# Line 45  C     == Local variables == Line 56  C     == Local variables ==
56        character*( 80)   fnamesst        character*( 80)   fnamesst
57    
58  c     == external ==  c     == external ==
   
59        integer  ilnblnk        integer  ilnblnk
60        external ilnblnk        external ilnblnk
61    
62  c     == end of interface ==  c     == end of interface ==
63    CEOP
64    
65        jtlo = mybylo(mythid)        jtlo = mybylo(mythid)
66        jthi = mybyhi(mythid)        jthi = mybyhi(mythid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22