/[MITgcm]/MITgcm/pkg/dic/dic_read_pickup.F
ViewVC logotype

Contents of /MITgcm/pkg/dic/dic_read_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.8 - (show annotations) (download)
Mon Mar 14 01:38:04 2011 UTC (13 years, 3 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint64, checkpoint65, checkpoint63, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62z, checkpoint62y, checkpoint62x
Changes since 1.7: +8 -3 lines 
change argument list of S/R MDS_CHECK4FILE ; fix the use of mdsioLocalDir.
1 C $Header: /u/gcmpack/MITgcm/pkg/dic/dic_read_pickup.F,v 1.7 2009/04/28 18:10:47 jmc Exp $
2 C $Name: $
3
4 #include "DIC_OPTIONS.h"
5
6 SUBROUTINE DIC_READ_PICKUP(
7 O pH_isLoaded,
8 I myIter, myThid )
9
10 IMPLICIT NONE
11 C === Global variables ===
12 #include "SIZE.h"
13 #include "EEPARAMS.h"
14 #include "PARAMS.h"
15 #include "DIC_VARS.h"
16
17 C == Routine arguments ==
18 C myThid :: my Thread Id number
19 LOGICAL pH_isLoaded
20 INTEGER myIter
21 INTEGER myThid
22
23 #ifdef ALLOW_DIC
24 #ifdef DIC_BIOTIC
25
26 C !FUNCTIONS
27
28 C !LOCAL VARIABLES:
29 C == Local variables ==
30 CHARACTER*(MAX_LEN_FNAM) fn, filNam
31 CHARACTER*(MAX_LEN_MBUF) msgBuf
32 LOGICAL useCurrentDir, fileExist
33 INTEGER fp, ioUnit
34 CEOP
35
36 pH_isLoaded =.FALSE.
37 ioUnit = errorMessageUnit
38
39 C-- pickup file name :
40 IF (pickupSuff.EQ.' ') THEN
41 WRITE(fn,'(A,I10.10)') 'pickup_dic.', myIter
42 ELSE
43 WRITE(fn,'(A,A10)') 'pickup_dic.', pickupSuff
44 ENDIF
45 fp = precFloat64
46
47 C-- First check if pickup file exist
48 #ifdef ALLOW_MDSIO
49 useCurrentDir = .FALSE.
50 CALL MDS_CHECK4FILE(
51 I fn, '.data', 'DIC_READ_PICKUP',
52 O filNam, fileExist,
53 I useCurrentDir, myThid )
54 #else
55 STOP 'ABNORMAL END: S/R DIC_READ_PICKUP: Needs MDSIO pkg'
56 #endif
57
58 IF ( fileExist ) THEN
59 C-- Read pickup file
60 CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid )
61 pH_isLoaded = .TRUE.
62
63 _EXCH_XY_RL( pH, myThid )
64 ELSE
65 pH_isLoaded = .FALSE.
66 IF ( pickupStrictlyMatch ) THEN
67 WRITE(msgBuf,'(4A)') 'DIC_READ_PICKUP: ',
68 & 'try with " pickupStrictlyMatch=.FALSE.,"',
69 & ' in file: "data", NameList: "PARM03"'
70 CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
71 STOP 'ABNORMAL END: S/R DIC_READ_PICKUP'
72 ELSE
73 WRITE(msgBuf,'(2A)') 'WARNING >> DIC_READ_PICKUP: ',
74 & 'will restart from approximated pH'
75 CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
76 ENDIF
77 ENDIF
78
79 #endif /* DIC_BIOTIC */
80 #endif /* ALLOW_DIC */
81
82 RETURN
83 END
  ViewVC Help
Powered by ViewVC 1.1.22