Back to home page

MITgcm

 
 

    


File indexing completed on 2023-05-28 05:10:55 UTC

view on githubraw file Latest commit b4daa243 on 2023-05-28 03:53:22 UTC
b4daa24319 Shre*0001 #ifndef ADDEBUG_INCLUDED
                0002 #define ADDEBUG_INCLUDED
                0003 
                0004 #include "adComplex.h"
                0005 
                0006 void adDebugTgt_init(double epsilon, double seed, int tested_process) ;
                0007 void adDebugTgt_call(char *unitname, int traced, int forcetraced) ;
                0008 void adDebugTgt_exit() ;
                0009 int adDebugTgt_here(char* placename, int forcetraced) ;
                0010 
                0011 void adDebugTgt_initReal4(char* varname, float *indep, float *indepd) ;
                0012 void adDebugTgt_initReal8(char* varname, double *indep, double *indepd) ;
                0013 void adDebugTgt_initComplex16(char* varname, cdcmplx *indep, cdcmplx *indepd) ;
                0014 void adDebugTgt_initReal4Array(char* varname, float *indep, float *indepd, int length) ;
                0015 void adDebugTgt_initReal8Array(char* varname, double *indep, double *indepd, int length) ;
                0016 void adDebugTgt_initComplex16Array(char* varname, cdcmplx *indep, cdcmplx *indepd, int length) ;
                0017 void adDebugTgt_concludeReal4(char *varname, float dep, float *depd) ;
                0018 void adDebugTgt_concludeReal8(char *varname, double dep, double *depd) ;
                0019 void adDebugTgt_concludeComplex16(char *varname, cdcmplx dep, cdcmplx *depd) ;
                0020 void adDebugTgt_concludeReal4Array(char *varname, float *tvar, float *tvard, int length) ;
                0021 void adDebugTgt_concludeReal8Array(char *varname, double *tvar, double *tvard, int length) ;
                0022 void adDebugTgt_concludeComplex16Array(char *varname, cdcmplx *tvar, cdcmplx *tvard, int length) ;
                0023 void adDebugTgt_conclude() ;
                0024 void adDebugTgt_passiveReal4(char *varname, float var) ;
                0025 void adDebugTgt_passiveReal8(char *varname, double var) ;
                0026 void adDebugTgt_passiveComplex16(char *varname, cdcmplx var) ;
                0027 void adDebugTgt_passiveReal4Array(char *varname, float *var, int length) ;
                0028 void adDebugTgt_passiveReal8Array(char *varname, double *var, int length) ;
                0029 void adDebugTgt_passiveComplex16Array(char *varname, cdcmplx *var, int length) ;
                0030 void adDebugTgt_testReal4(char *varname, float var, float *vard) ;
                0031 void adDebugTgt_testReal8(char *varname, double var, double *vard) ;
                0032 void adDebugTgt_testComplex16(char *varname, cdcmplx var, cdcmplx *vard) ;
                0033 void adDebugTgt_testReal4Array(char *varname, float *var, float *vard, int length) ;
                0034 void adDebugTgt_testReal8Array(char *varname, double *var, double *vard, int length) ;
                0035 void adDebugTgt_testComplex16Array(char *varname, cdcmplx *var, cdcmplx *vard, int length) ;
                0036 void adDebugTgt_display(char *placename) ;
                0037 
                0038 void adDebugBwd_init(double errmax, double seed) ;
                0039 void adDebugBwd_call(char *funcname, int deltadepth) ;
                0040 void adDebugBwd_exit() ;
                0041 int adDebugBwd_here(char* placename) ;
                0042 
                0043 void adDebugFwd_init(double errmax, double seed) ;
                0044 void adDebugFwd_call(char *funcname) ;
                0045 void adDebugFwd_exit() ;
                0046 int adDebugFwd_here(char* placename) ;
                0047 
                0048 void adDebugAdj_rwReal4(float *vard) ;
                0049 void adDebugAdj_rwReal8(double *vard) ;
                0050 void adDebugAdj_rwComplex16(cdcmplx *vard) ;
                0051 void adDebugAdj_rReal4(float *vard) ;
                0052 void adDebugAdj_rReal8(double *vard) ;
                0053 void adDebugAdj_rComplex16(cdcmplx *vard) ;
                0054 void adDebugAdj_wReal4(float *vard) ;
                0055 void adDebugAdj_wReal8(double *vard) ;
                0056 void adDebugAdj_wComplex16(cdcmplx *vard) ;
                0057 void adDebugAdj_rwReal4Array(float *vard, int length) ;
                0058 void adDebugAdj_rwReal8Array(double *vard, int length) ;
                0059 void adDebugAdj_rwComplex16Array(cdcmplx *vard, int length) ;
                0060 void adDebugAdj_rReal4Array(float *vard, int length) ;
                0061 void adDebugAdj_rReal8Array(double *vard, int length) ;
                0062 void adDebugAdj_rComplex16Array(cdcmplx *vard, int length) ;
                0063 void adDebugAdj_wReal4Array(float *vard, int length) ;
                0064 void adDebugAdj_wReal8Array(double *vard, int length) ;
                0065 void adDebugAdj_wComplex16Array(cdcmplx *vard, int length) ;
                0066 void adDebugAdj_rwDisplay(char *placename, int indent) ;
                0067 void adDebugAdj_rDisplay(char *placename, int indent) ;
                0068 void adDebugAdj_wDisplay(char *placename, int indent) ;
                0069 void adDebugAdj_skip(char *placename) ;
                0070 void adDebugAdj_conclude() ;
                0071 
                0072 #endif