** Warning **

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.

Last-Modified: Thu, 2 Jul 2025 05:11:53 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/autodiff/autodiff_inadmode_unset_g.F
Back to home page

MITgcm

 
 

    


File indexing completed on 2021-10-13 05:14:28 UTC

view on githubraw file Latest commit c59dd234 on 2021-10-12 16:00:15 UTC
5b25cd0eaa Patr*0001 #include "AUTODIFF_OPTIONS.h"
                0002 
c59dd234b1 Jean*0003       SUBROUTINE G_AUTODIFF_INADMODE_UNSET( myTime, myIter, myThid )
5127d1d91b Jean*0004 C     *==========================================================*
                0005 C     | SUBROUTINE G_AUTODIFF_INADMODE_UNSET
                0006 C     *==========================================================*
                0007 
c59dd234b1 Jean*0008 C     !USES:
5b25cd0eaa Patr*0009       IMPLICIT NONE
                0010 C     == Global variables ===
                0011 #include "SIZE.h"
                0012 #include "EEPARAMS.h"
                0013 #include "PARAMS.h"
5127d1d91b Jean*0014 #include "AUTODIFF_PARAMS.h"
5b25cd0eaa Patr*0015 
c59dd234b1 Jean*0016 C     !INPUT/OUTPUT PARAMETERS:
                0017 C     myTime    :: Current time in simulation
                0018 C     myIter    :: Current iteration number
                0019 C     myThid    :: my Thread Id number
                0020       _RL     myTime
                0021       INTEGER myIter
5127d1d91b Jean*0022       INTEGER myThid
5b25cd0eaa Patr*0023 
5127d1d91b Jean*0024       inAdMode = .FALSE.
5b25cd0eaa Patr*0025 
5127d1d91b Jean*0026       RETURN
                0027       END