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 === |
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 |
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) |