pkg/ggl90/ggl90_read_pickup.F

f13fe90a48 Patr*0001 #include "GGL90_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: GGL90_READ_PICKUP
                0005 C     !INTERFACE:
                0006       SUBROUTINE GGL90_READ_PICKUP( myIter, myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *================================================================*
                0010 C     | SUBROUTINE GGL90_READ_PICKUP
                0011 C     | o read ggl90 pickups
                0012 C     *================================================================*
                0013 C     \ev
                0014
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017 C     === Global variables ===
                0018 #include "SIZE.h"
                0019 #include "EEPARAMS.h"
                0020 #include "PARAMS.h"
                0021 #include "GGL90.h"
                0022
                0023 C     !INPUT/OUTPUT PARAMETERS:
                0024 C     == Routine arguments ==
                0025 C     myThid -  Number of this instance of GGL90_READ_CHECKPOINT
                0026       INTEGER myIter
                0027       INTEGER myThid
                0028
                0029 #ifdef ALLOW_GGL90
                0030
                0031 C     !LOCAL VARIABLES:
                0032 C     == Local variables ==
                0033       CHARACTER*(MAX_LEN_FNAM) fn
                0034       CHARACTER*(10) suff
                0035       INTEGER prec
                0036 CEOP
                0037
                0038 C--   Suffix for pickup files
                0039       IF (pickupSuff.EQ.' ') THEN
df5a9764ba Jean*0040         IF ( rwSuffixType.EQ.0 ) THEN
                0041           WRITE(suff,'(I10.10)') myIter
                0042         ELSE
                0043           CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid )
                0044         ENDIF
f13fe90a48 Patr*0045       ELSE
df5a9764ba Jean*0046         WRITE(suff,'(A10)') pickupSuff
f13fe90a48 Patr*0047       ENDIF
                0048
                0049       _BARRIER
                0050
                0051       prec = precFloat64
                0052
                0053       WRITE(fn,'(A,A10)') 'pickup_ggl90.',suff
                0054       CALL READ_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid )
                0055
                0056       _EXCH_XYZ_RL( GGL90TKE, myThid )
                0057
                0058 #ifdef ALLOW_GGL90_IDEMIX
                0059       IF (useIDEMIX) THEN
                0060        CALL READ_REC_3D_RL( fn, prec, Nr, IDEMIX_E, 2, myIter, myThid )
                0061        _EXCH_XYZ_RL( IDEMIX_E, myThid )
                0062       ENDIF
                0063 #endif
                0064
                0065 #endif /*  ALLOW_GGL90  */
                0066
                0067       RETURN
                0068       END
                0069