model/src/turnoff_model_io.F

34f80e9da1 Jean*0001 #include "PACKAGES_CONFIG.h"
                0002 #include "CPP_OPTIONS.h"
                0003
                0004 CBOP
                0005 C     !ROUTINE: TURNOFF_MODEL_IO
                0006 C     !INTERFACE:
                0007       SUBROUTINE TURNOFF_MODEL_IO( seqFlag, myThid )
                0008
                0009 C     !DESCRIPTION: \bv
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE TURNOFF_MODEL_IO
                0012 C     | o Turn off some of the model output flags
                0013 C     *==========================================================*
                0014 C     | Used in adjoint simulation (and called after the first
4870dd98f1 Jean*0015 C     |  forward sweep) to avoid writing output multiple times (if
34f80e9da1 Jean*0016 C     |  recomputations and/or grdchk) with the same iter number.
                0017 C     *==========================================================*
                0018 C     \ev
                0019
                0020 C     !USES:
                0021       IMPLICIT NONE
                0022 C     === Global variables ===
                0023 ** Fatal **git subprocess died unexpextedly: Cannot allocate memory