/[MITgcm]/MITgcm/pkg/openad/externalDummies.F
ViewVC logotype

Diff of /MITgcm/pkg/openad/externalDummies.F

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

revision 1.1 by heimbach, Sat Nov 9 12:17:06 2013 UTC revision 1.2 by heimbach, Wed Aug 6 16:55:36 2014 UTC
# Line 111  C ###################################### Line 111  C ######################################
111  C dummy self dependence (nontrivial so mfef90 doesn't kill it)  C dummy self dependence (nontrivial so mfef90 doesn't kill it)
112        cg2d_x(1,1,1,1)=2*cg2d_b(1,1,1,1)        cg2d_x(1,1,1,1)=2*cg2d_b(1,1,1,1)
113        end subroutine        end subroutine
114    C ###########################################################
115          subroutine oad_active_read_xy(
116         I                           active_var_file,
117         O                           active_var,
118         I                           iRec,
119         I                           doglobalread,
120         I                           lAdInit,
121         I                           myOptimIter,
122         I                           myThid,
123         I                           dummy
124         &                         )
125    !$openad xxx template oad_template.active_read_xy.f90
126            implicit none
127    !     == global variables ==
128    #include "EEPARAMS.h"
129    #include "SIZE.h"
130          CHARACTER*(MAX_LEN_MBUF) active_var_file
131          _RL     active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
132          INTEGER iRec
133          INTEGER myOptimIter
134          INTEGER myThid
135          LOGICAL doglobalread
136          LOGICAL lAdInit
137          _RL     dummy
138          active_var = dummy + active_var
139          dummy = active_var(1,1,1,1) + dummy
140          end subroutine
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22