24 |
c o adactive_write_tile_xy - Adjoint of active_write_tile_xy |
c o adactive_write_tile_xy - Adjoint of active_write_tile_xy |
25 |
c o adactive_write_tile_xyz - Adjoint of active_write_tile_xyz |
c o adactive_write_tile_xyz - Adjoint of active_write_tile_xyz |
26 |
c |
c |
27 |
|
c o adactive_read_profile - Adjoint of active_read_profile |
28 |
|
c o adactive_write_profile - Adjoint of active_write_profile |
29 |
c |
c |
30 |
c changed: Christian Eckert eckert@mit.edu 24-Apr-2000 |
c changed: Christian Eckert eckert@mit.edu 24-Apr-2000 |
31 |
c - Added routines that do active writes on tiles |
c - Added routines that do active writes on tiles |
1037 |
& ) |
& ) |
1038 |
|
|
1039 |
end |
end |
1040 |
|
|
1041 |
|
subroutine adactive_read_profile( |
1042 |
|
I active_num_file, |
1043 |
|
I nadactive_var, |
1044 |
|
I active_varnum, |
1045 |
|
I irec, |
1046 |
|
I lAdInit, |
1047 |
|
I myiter, |
1048 |
|
I mythid, |
1049 |
|
I adactive_var |
1050 |
|
& ) |
1051 |
|
|
1052 |
|
C !DESCRIPTION: \bv |
1053 |
|
c ================================================================== |
1054 |
|
c SUBROUTINE adactive_read_profile |
1055 |
|
c ================================================================== |
1056 |
|
c o Adjoint of active_read_profile. |
1057 |
|
c ================================================================== |
1058 |
|
implicit none |
1059 |
|
|
1060 |
|
c == global variables == |
1061 |
|
#include "EEPARAMS.h" |
1062 |
|
#include "SIZE.h" |
1063 |
|
#include "profiles.h" |
1064 |
|
|
1065 |
|
c == routine arguments == |
1066 |
|
c active_var_file: filename |
1067 |
|
c nadactive_var: integer size of adactive_var |
1068 |
|
c adactive_var: array |
1069 |
|
c irec: record number |
1070 |
|
c myIter: number of optimization iteration (default: 0) |
1071 |
|
c mythid: thread number for this instance |
1072 |
|
c doglobalread: flag for global or local read/write |
1073 |
|
c (default: .false.) |
1074 |
|
c lAdInit: initialisation of corresponding adjoint |
1075 |
|
c variable and write to active file |
1076 |
|
integer nadactive_var,active_num_file |
1077 |
|
_RL adactive_var(nadactive_var) |
1078 |
|
integer irec,active_varnum |
1079 |
|
integer myiter |
1080 |
|
integer mythid |
1081 |
|
logical lAdInit |
1082 |
|
|
1083 |
|
call active_read_profile_rl( fidadjoint(active_num_file) , |
1084 |
|
& active_num_file, |
1085 |
|
& nadactive_var, adactive_var, active_varnum, lAdInit, |
1086 |
|
& irec, prof_ind_glob(active_num_file,irec), |
1087 |
|
& REVERSE_SIMULATION, myiter, mythid) |
1088 |
|
|
1089 |
|
end |
1090 |
|
|
1091 |
|
c ================================================================== |
1092 |
|
c ================================================================== |
1093 |
|
c ================================================================== |
1094 |
|
|
1095 |
|
|
1096 |
|
subroutine adactive_write_profile( |
1097 |
|
I active_num_file, |
1098 |
|
I nadactive_var, |
1099 |
|
I active_varnum, |
1100 |
|
I irec, |
1101 |
|
I myiter, |
1102 |
|
I mythid, |
1103 |
|
I adactive_var, |
1104 |
|
I dummy |
1105 |
|
& ) |
1106 |
|
|
1107 |
|
C !DESCRIPTION: \bv |
1108 |
|
c ================================================================== |
1109 |
|
c SUBROUTINE adactive_write_profile |
1110 |
|
c ================================================================== |
1111 |
|
c o Adjoint of active_write_profile. |
1112 |
|
c ================================================================== |
1113 |
|
|
1114 |
|
implicit none |
1115 |
|
|
1116 |
|
c == global variables == |
1117 |
|
#include "EEPARAMS.h" |
1118 |
|
#include "SIZE.h" |
1119 |
|
#include "profiles.h" |
1120 |
|
|
1121 |
|
c == routine arguments == |
1122 |
|
c active_var_file: filename |
1123 |
|
c nadactive_var: integer size of adactive_var |
1124 |
|
c adactive_var: array |
1125 |
|
c irec: record number |
1126 |
|
c myIter: number of optimization iteration (default: 0) |
1127 |
|
c mythid: thread number for this instance |
1128 |
|
c doglobalread: flag for global or local read/write |
1129 |
|
c (default: .false.) |
1130 |
|
c lAdInit: initialisation of corresponding adjoint |
1131 |
|
c variable and write to active file |
1132 |
|
integer nadactive_var,active_num_file |
1133 |
|
_RL adactive_var(nadactive_var) |
1134 |
|
integer irec,active_varnum |
1135 |
|
integer myiter |
1136 |
|
integer mythid |
1137 |
|
_RL dummy |
1138 |
|
|
1139 |
|
|
1140 |
|
c == end of interface == |
1141 |
|
|
1142 |
|
call active_write_profile_rl( fidadjoint(active_num_file) , |
1143 |
|
& active_num_file, |
1144 |
|
& nadactive_var, adactive_var, active_varnum, |
1145 |
|
& irec, prof_ind_glob(active_num_file,irec), |
1146 |
|
& REVERSE_SIMULATION, myiter, mythid) |
1147 |
|
|
1148 |
|
end |
1149 |
|
|
1150 |
|
c ================================================================== |
1151 |
|
|
1152 |
|
|