/[MITgcm]/MITgcm/pkg/autodiff/active_file_ad.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/active_file_ad.F

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

revision 1.4 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.5 by heimbach, Thu Mar 23 23:06:47 2006 UTC
# Line 24  c     o  adactive_read_tile_xyz   - Adjo Line 24  c     o  adactive_read_tile_xyz   - Adjo
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
# Line 1035  c     == end of interface == Line 1037  c     == end of interface ==
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    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22