/[MITgcm]/MITgcm/pkg/profiles/active_file_profiles_g.F
ViewVC logotype

Diff of /MITgcm/pkg/profiles/active_file_profiles_g.F

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

revision 1.2 by heimbach, Sat May 6 14:33:53 2006 UTC revision 1.3 by gforget, Fri Jul 14 20:19:36 2006 UTC
# Line 25  c     ================================== Line 25  c     ==================================
25       I                           irec,       I                           irec,
26       I                           lAdInit,       I                           lAdInit,
27       I                           myOptimIter,       I                           myOptimIter,
28         I                           bi,
29         I                           bj,
30       I                           mythid,       I                           mythid,
31       I                           dummy,       I                           dummy,
32       I                           g_active_var       I                           g_active_var
# Line 62  c                      variable and writ Line 64  c                      variable and writ
64        _RL  g_active_var(nactive_var)        _RL  g_active_var(nactive_var)
65        integer irec,active_varnum,active_num_file        integer irec,active_varnum,active_num_file
66        integer myOptimIter        integer myOptimIter
67        integer mythid        integer  bi,bj,mythid
68        logical lAdInit        logical lAdInit
69        _RL     dummy        _RL     dummy
70    
71  #ifdef ALLOW_PROFILES  #ifdef ALLOW_PROFILES
72    
73        call active_read_profile_rl( fidforward(active_num_file),        call active_read_profile_rl( fidforward(active_num_file,bi,bj),
74       &     active_num_file,       &     active_num_file,
75       & nactive_var,  active_var, active_varnum, lAdInit,       &     nactive_var,  active_var, active_varnum, lAdInit,
76       &     irec, prof_ind_glob(active_num_file,irec),       &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
77       & TANGENT_SIMULATION, myOptimIter, mythid)       &     TANGENT_SIMULATION, myOptimIter,bi,bj, mythid)
78    
79        call active_read_profile_rl( fidtangent(active_num_file),        call active_read_profile_rl( fidtangent(active_num_file,bi,bj),
80       &     active_num_file,       &     active_num_file,
81       & nactive_var, g_active_var,active_varnum, lAdInit,       &     nactive_var, g_active_var,active_varnum, lAdInit,
82       &     irec, prof_ind_glob(active_num_file,irec),       &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
83       & TANGENT_SIMULATION, myOptimIter, mythid)       &     TANGENT_SIMULATION, myOptimIter,bi,bj, mythid)
84    
85  #endif  #endif
86    
# Line 97  c     ================================== Line 99  c     ==================================
99       I                           active_varnum,       I                           active_varnum,
100       I                           irec,       I                           irec,
101       I                           myOptimIter,       I                           myOptimIter,
102         I                           bi,
103         I                           bj,
104       I                           mythid,       I                           mythid,
105       I                           dummy,       I                           dummy,
106       I                           g_active_var,       I                           g_active_var,
# Line 131  c     mythid:          thread number for Line 135  c     mythid:          thread number for
135        _RL  g_active_var(nactive_var)        _RL  g_active_var(nactive_var)
136        integer irec,active_varnum        integer irec,active_varnum
137        integer myOptimIter        integer myOptimIter
138        integer mythid        integer  bi,bj,mythid
139        _RL     dummy        _RL     dummy
140        _RL     g_dummy        _RL     g_dummy
141    
142  #ifdef ALLOW_PROFILES  #ifdef ALLOW_PROFILES
143    
144        call active_write_profile_rl( fidforward(active_num_file) ,        call active_write_profile_rl( fidforward(active_num_file,bi,bj) ,
145       &     active_num_file,       &     active_num_file,
146       & nactive_var, active_var, active_varnum,       &     nactive_var, active_var, active_varnum,
147       &     irec, prof_ind_glob(active_num_file,irec),       &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
148       & TANGENT_SIMULATION, myOptimIter, mythid)       &     TANGENT_SIMULATION, myOptimIter,bi,bj, mythid)
149    
150        call active_write_profile_rl( fidtangent(active_num_file) ,        call active_write_profile_rl( fidtangent(active_num_file,bi,bj) ,
151       &     active_num_file,       &     active_num_file,
152       & nactive_var, g_active_var, active_varnum,       &     nactive_var, g_active_var, active_varnum,
153       &     irec, prof_ind_glob(active_num_file,irec),       &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
154       & TANGENT_SIMULATION, myOptimIter, mythid)       &     TANGENT_SIMULATION, myOptimIter,bi,bj, mythid)
155    
156  #endif  #endif
157    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22