File |
Line number |
Procedure |
Code |
./pkg/exf/exf_adjoint_snapshots_ad.F |
104 |
ADEXF_ADJOINT_SNAPSHOTS |
IF (.NOT.dumpAdByRec) THEN |
./pkg/seaice/seaice_ad_dump.F |
109 |
SEAICE_AD_DUMP |
IF (dumpAdVarExch.NE.2 .AND. .NOT.dumpAdByRec) THEN |
./pkg/seaice/seaice_ad_dump.F |
131 |
SEAICE_AD_DUMP |
ELSEIF (dumpAdVarExch.NE.2 .AND. .NOT.dumpAdByRec) THEN |
./pkg/seaice/seaice_ad_dump.F |
155 |
SEAICE_AD_DUMP |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJarea.', |
./pkg/seaice/seaice_ad_dump.F |
157 |
SEAICE_AD_DUMP |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJarea', |
./pkg/seaice/seaice_ad_dump.F |
160 |
SEAICE_AD_DUMP |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJheff.', |
./pkg/seaice/seaice_ad_dump.F |
162 |
SEAICE_AD_DUMP |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJheff', |
./pkg/seaice/seaice_ad_dump.F |
165 |
SEAICE_AD_DUMP |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJhsnow.', |
./pkg/seaice/seaice_ad_dump.F |
167 |
SEAICE_AD_DUMP |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJhsnow', |
./pkg/seaice/seaice_ad_dump.F |
173 |
SEAICE_AD_DUMP |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJuice.', |
./pkg/seaice/seaice_ad_dump.F |
175 |
SEAICE_AD_DUMP |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJuice', |
./pkg/seaice/seaice_ad_dump.F |
177 |
SEAICE_AD_DUMP |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJvice.', |
./pkg/seaice/seaice_ad_dump.F |
179 |
SEAICE_AD_DUMP |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJvice', |
./pkg/autodiff/AUTODIFF_PARAMS.h |
37 |
NO PROCEDURE |
LOGICAL dumpAdByRec |
./pkg/autodiff/AUTODIFF_PARAMS.h |
49 |
NO PROCEDURE |
& dumpAdByRec |
./pkg/autodiff/addummy_in_dynamics.F |
111 |
ADDUMMY_IN_DYNAMICS |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJrhoinsitu.', |
./pkg/autodiff/addummy_in_dynamics.F |
113 |
ADDUMMY_IN_DYNAMICS |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJrhoinsitu', |
./pkg/autodiff/addummy_in_dynamics.F |
122 |
ADDUMMY_IN_DYNAMICS |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJrhoinsitu.', |
./pkg/autodiff/addummy_in_dynamics.F |
124 |
ADDUMMY_IN_DYNAMICS |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJrhoinsitu', |
./pkg/autodiff/addummy_in_stepping.F |
197 |
ADDUMMY_IN_STEPPING |
IF ( ( dumpAdVarExch.NE.2 ).AND.(.NOT.dumpAdByRec) ) THEN |
./pkg/autodiff/addummy_in_stepping.F |
256 |
ADDUMMY_IN_STEPPING |
ELSEIF ( ( dumpAdVarExch.NE.2 ).AND.(dumpAdByRec) ) THEN |
./pkg/autodiff/addummy_in_stepping.F |
326 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJtheta.', |
./pkg/autodiff/addummy_in_stepping.F |
328 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJtheta', |
./pkg/autodiff/addummy_in_stepping.F |
331 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJsalt.', |
./pkg/autodiff/addummy_in_stepping.F |
333 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJsalt', |
./pkg/autodiff/addummy_in_stepping.F |
337 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJuvel.', |
./pkg/autodiff/addummy_in_stepping.F |
339 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJuvel', |
./pkg/autodiff/addummy_in_stepping.F |
341 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJvvel.', |
./pkg/autodiff/addummy_in_stepping.F |
343 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJvvel', |
./pkg/autodiff/addummy_in_stepping.F |
346 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJwvel.', |
./pkg/autodiff/addummy_in_stepping.F |
348 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJwvel', |
./pkg/autodiff/addummy_in_stepping.F |
351 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJetan.', |
./pkg/autodiff/addummy_in_stepping.F |
353 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJetan', |
./pkg/autodiff/addummy_in_stepping.F |
359 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJtaux.', |
./pkg/autodiff/addummy_in_stepping.F |
361 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJtaux', |
./pkg/autodiff/addummy_in_stepping.F |
363 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJtauy.', |
./pkg/autodiff/addummy_in_stepping.F |
365 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJtauy', |
./pkg/autodiff/addummy_in_stepping.F |
368 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJqnet.', |
./pkg/autodiff/addummy_in_stepping.F |
370 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJqnet', |
./pkg/autodiff/addummy_in_stepping.F |
373 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJempr.', |
./pkg/autodiff/addummy_in_stepping.F |
375 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJempr', |
./pkg/autodiff/addummy_in_stepping.F |
379 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJqsw.', |
./pkg/autodiff/addummy_in_stepping.F |
381 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJqsw', |
./pkg/autodiff/addummy_in_stepping.F |
387 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJggl90tke.', |
./pkg/autodiff/addummy_in_stepping.F |
389 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJggl90tke', |
./pkg/autodiff/addummy_in_stepping.F |
394 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJdiffkr.', |
./pkg/autodiff/addummy_in_stepping.F |
396 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJdiffkr', |
./pkg/autodiff/addummy_in_stepping.F |
401 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJkapgm.', |
./pkg/autodiff/addummy_in_stepping.F |
403 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJkapgm', |
./pkg/autodiff/addummy_in_stepping.F |
408 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJkapredi.', |
./pkg/autodiff/addummy_in_stepping.F |
410 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJkapredi', |
./pkg/autodiff/addummy_in_stepping.F |
416 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJeddypsix.', |
./pkg/autodiff/addummy_in_stepping.F |
418 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJeddypsix', |
./pkg/autodiff/addummy_in_stepping.F |
420 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJeddypsiy.', |
./pkg/autodiff/addummy_in_stepping.F |
422 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJeddypsiy', |
./pkg/autodiff/addummy_in_stepping.F |
427 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJsst.', |
./pkg/autodiff/addummy_in_stepping.F |
429 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJsst', |
./pkg/autodiff/addummy_in_stepping.F |
434 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJsss.', |
./pkg/autodiff/addummy_in_stepping.F |
436 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJsss', |
./pkg/autodiff/addummy_in_stepping.F |
442 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJbottomdrag.', |
./pkg/autodiff/addummy_in_stepping.F |
444 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJbottomdrag', |
./pkg/autodiff/addummy_in_stepping.F |
454 |
ADDUMMY_IN_STEPPING |
IF ( ( dumpAdVarExch.NE.2 ).AND.(.NOT.dumpAdByRec) ) THEN |
./pkg/autodiff/addummy_in_stepping.F |
533 |
ADDUMMY_IN_STEPPING |
ELSEIF ( ( dumpAdVarExch.NE.2 ).AND.(dumpAdByRec) ) THEN |
./pkg/autodiff/addummy_in_stepping.F |
624 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJtheta.', |
./pkg/autodiff/addummy_in_stepping.F |
626 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJtheta', |
./pkg/autodiff/addummy_in_stepping.F |
629 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJsalt.', |
./pkg/autodiff/addummy_in_stepping.F |
631 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJsalt', |
./pkg/autodiff/addummy_in_stepping.F |
635 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJuvel.', |
./pkg/autodiff/addummy_in_stepping.F |
637 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJuvel', |
./pkg/autodiff/addummy_in_stepping.F |
639 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJvvel.', |
./pkg/autodiff/addummy_in_stepping.F |
641 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJvvel', |
./pkg/autodiff/addummy_in_stepping.F |
644 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJwvel.', |
./pkg/autodiff/addummy_in_stepping.F |
646 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJwvel', |
./pkg/autodiff/addummy_in_stepping.F |
649 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJetan.', |
./pkg/autodiff/addummy_in_stepping.F |
651 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJetan', |
./pkg/autodiff/addummy_in_stepping.F |
657 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJtaux.', |
./pkg/autodiff/addummy_in_stepping.F |
659 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJtaux', |
./pkg/autodiff/addummy_in_stepping.F |
661 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJtauy.', |
./pkg/autodiff/addummy_in_stepping.F |
663 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJtauy', |
./pkg/autodiff/addummy_in_stepping.F |
666 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJqnet.', |
./pkg/autodiff/addummy_in_stepping.F |
668 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJqnet', |
./pkg/autodiff/addummy_in_stepping.F |
671 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJempr.', |
./pkg/autodiff/addummy_in_stepping.F |
673 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJempr', |
./pkg/autodiff/addummy_in_stepping.F |
692 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJdiffkr.', |
./pkg/autodiff/addummy_in_stepping.F |
694 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJdiffkr', |
./pkg/autodiff/addummy_in_stepping.F |
699 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJkapgm.', |
./pkg/autodiff/addummy_in_stepping.F |
701 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJkapgm', |
./pkg/autodiff/addummy_in_stepping.F |
706 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJkapredi.', |
./pkg/autodiff/addummy_in_stepping.F |
708 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJkapredi', |
./pkg/autodiff/addummy_in_stepping.F |
714 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJeddypsix.', |
./pkg/autodiff/addummy_in_stepping.F |
716 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJeddypsix', |
./pkg/autodiff/addummy_in_stepping.F |
718 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XYZ_RL( 'ADJeddypsiy.', |
./pkg/autodiff/addummy_in_stepping.F |
720 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XYZ_RL( 'ADJeddypsiy', |
./pkg/autodiff/addummy_in_stepping.F |
725 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJsst.', |
./pkg/autodiff/addummy_in_stepping.F |
727 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJsst', |
./pkg/autodiff/addummy_in_stepping.F |
732 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJsss.', |
./pkg/autodiff/addummy_in_stepping.F |
734 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJsss', |
./pkg/autodiff/addummy_in_stepping.F |
740 |
ADDUMMY_IN_STEPPING |
IF (.NOT.dumpAdByRec) CALL WRITE_FLD_XY_RL( 'ADJbottomdrag.', |
./pkg/autodiff/addummy_in_stepping.F |
742 |
ADDUMMY_IN_STEPPING |
IF ( dumpAdByRec ) CALL WRITE_REC_XY_RL( 'ADJbottomdrag', |
./pkg/autodiff/autodiff_readparms.F |
38 |
AUTODIFF_READPARMS |
& dumpAdByRec, |
./pkg/autodiff/autodiff_readparms.F |
65 |
AUTODIFF_READPARMS |
dumpAdByRec = .FALSE. |