** 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: Sat, 19 Dec 2025 06:09:19 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/ggl90/ggl90_read_pickup.F
Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:41:14 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!