pkg/longstep/longstep_correction_step.F

4e66ab0b67 Oliv*0001 #include "PACKAGES_CONFIG.h"
                0002 #include "CPP_OPTIONS.h"
                0003
                0004 CBOP
                0005 C     !ROUTINE: LONGSTEP_CORRECTION_STEP
                0006 C     !INTERFACE:
                0007       SUBROUTINE LONGSTEP_CORRECTION_STEP(myTime, myIter, myThid)
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE LONGSTEP_CORRECTION_STEP
                0011 C     *==========================================================*
                0012 C     | part of tracer_correction_step that affect ptracers
6a71065a24 Jean*0013 C     | (except convective adjustment): -> empty
4e66ab0b67 Oliv*0014 C     *==========================================================*
                0015 C     \ev
                0016
                0017 C     !USES:
                0018       IMPLICIT NONE
                0019 C     == Global variables ===
                0020 #include "SIZE.h"
                0021 #include "EEPARAMS.h"
                0022 #include "PARAMS.h"
                0023 #include "LONGSTEP.h"
                0024
                0025 C     !INPUT/OUTPUT PARAMETERS:
                0026 C     == Routine arguments ==
4386cab7b1 Jean*0027 C     myTime :: Current time in simulation
                0028 C     myIter :: Current iteration number in simulation
                0029 C     myThid :: Thread number for this instance of the routine.
4e66ab0b67 Oliv*0030       _RL myTime
                0031       INTEGER myIter
                0032       INTEGER myThid
                0033
                0034 #ifdef ALLOW_GENERIC_ADVDIFF
                0035 C     !LOCAL VARIABLES:
                0036 C     == Local variables
6a71065a24 Jean*0037 c     INTEGER bi,bj
4e66ab0b67 Oliv*0038 CEOP
                0039
                0040 #ifdef ALLOW_LONGSTEP
                0041 C     only cycle if we have computed gPtr in this time step
                0042       IF ( LS_doTimeStep ) THEN
                0043 #else
                0044       IF ( .TRUE. ) THEN
                0045 #endif
                0046
                0047 C     endif LS_doTimeStep
                0048       ENDIF
                0049
                0050 #endif /* ALLOW_GENERIC_ADVDIFF */
                0051
                0052       RETURN
                0053       END