pkg/mnc/mnc_init.F

4de8f8c098 Ed H*0001 #include "MNC_OPTIONS.h"
                0002
e9b72f2bd9 Ed H*0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
e6bb5b2cc3 Ed H*0004 CBOP 0
1b5fb69d21 Ed H*0005 C     !ROUTINE: MNC_INIT
4de8f8c098 Ed H*0006
1b5fb69d21 Ed H*0007 C     !INTERFACE:
3f2ea2a4ed Ed H*0008       SUBROUTINE MNC_INIT( myThid )
4de8f8c098 Ed H*0009
1b5fb69d21 Ed H*0010 C     !DESCRIPTION:
e6bb5b2cc3 Ed H*0011 C     Initialize (zero) the look-up tables.  This routine should
                0012 C     \textbf{always} be run before any other MNC subroutines to ensure
                0013 C     that the lookup tables start in a well-defined state.
1b5fb69d21 Ed H*0014
                0015 C     !USES:
5bc9611487 Ed H*0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #include "PARAMS.h"
07155994b8 Mart*0019 #include "MNC_COMMON.h"
ed1920da46 Mart*0020 #include "MNC_PARAMS.h"
4de8f8c098 Ed H*0021
1b5fb69d21 Ed H*0022 C     !INPUT PARAMETERS:
3f2ea2a4ed Ed H*0023       integer myThid
e6bb5b2cc3 Ed H*0024 CEOP
4de8f8c098 Ed H*0025
1b5fb69d21 Ed H*0026 C     !LOCAL VARIABLES:
9705a0d5c6 Ed H*0027       integer i,j, g
4de8f8c098 Ed H*0028       character blank*(MNC_MAX_CHAR)
9705a0d5c6 Ed H*0029       character bpath*(MNC_MAX_PATH)
4de8f8c098 Ed H*0030
3623ff8097 Ed H*0031 C     Write blanks or zeros to all the internal names and ID tables
df6eaac306 Ed H*0032       DO i = 1,MNC_MAX_CHAR
bdad0a740f Ed H*0033         blank(i:i) = ' '
4de8f8c098 Ed H*0034       ENDDO
9705a0d5c6 Ed H*0035       DO i = 1,MNC_MAX_PATH
                0036         bpath(i:i) = ' '
                0037       ENDDO
                0038
a27dc5c859 Ed H*0039       mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
ef92f00980 Ed H*0040       DO i = 1,MNC_MAX_FID
9705a0d5c6 Ed H*0041         mnc_f_names(i)(1:MNC_MAX_PATH) = bpath(1:MNC_MAX_PATH)
a7ffe10af7 Ed H*0042         DO j = 1,MNC_MAX_INFO
                0043           mnc_f_info(i,j) = 0
                0044           mnc_fv_ids(i,j) = 0
                0045           mnc_fd_ind(i,j) = 0
dad4143247 Ed H*0046           mnc_f_alld(i,j) = 0
a7ffe10af7 Ed H*0047         ENDDO
                0048       ENDDO
ef92f00980 Ed H*0049       DO i = 1,MNC_MAX_ID
                0050         mnc_d_size(i) = 0
                0051         mnc_d_ids(i)  = 0
                0052         mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
                0053         mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
                0054         mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
                0055       ENDDO
a7ffe10af7 Ed H*0056
357126def9 Ed H*0057 C     Blank the CW tables
e9b72f2bd9 Ed H*0058       DO g = 1,MNC_MAX_ID
15688ab4b4 Ed H*0059         mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
3623ff8097 Ed H*0060         mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
                0061         mnc_cw_vgind(g) = 0
21c48a3add Ed H*0062         mnc_cw_vfmv(g) = 0
e9b72f2bd9 Ed H*0063         mnc_cw_ndim(g) = 0
85c5caf7c2 Ed H*0064         mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
                0065         mnc_cw_fgud(g) = 0
3a6f2e4083 Ed H*0066         mnc_cw_fgis(g) = 0
5bc9611487 Ed H*0067         mnc_cw_fgci(g) = 1
d77e828db7 Ed H*0068 C       mnc_cw_cvnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
e9b72f2bd9 Ed H*0069         DO i = 1,MNC_CW_MAX_I
                0070           mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
3623ff8097 Ed H*0071           mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
                0072           mnc_cw_vinm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
                0073           mnc_cw_vdnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
                0074           mnc_cw_vtat(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
e9b72f2bd9 Ed H*0075           mnc_cw_dims(i,g) = 0
                0076           mnc_cw_is(i,g) = 0
                0077           mnc_cw_ie(i,g) = 0
3623ff8097 Ed H*0078           mnc_cw_viat(i,g) = 0
                0079           mnc_cw_vdat(i,g) = 0.0D0
                0080         ENDDO
                0081         DO i = 1,3
                0082           mnc_cw_vnat(i,g) = 0
e9b72f2bd9 Ed H*0083         ENDDO
df6eaac306 Ed H*0084         DO i = 1,2
                0085            mnc_cw_vbij(i,g) = 0
21c48a3add Ed H*0086            mnc_cw_vmvi(i,g) = 0
                0087            mnc_cw_vmvr(i,g) = 0.0
                0088            mnc_cw_vmvd(i,g) = 0.0D0
d77e828db7 Ed H*0089 C          mnc_cw_cvse(i,g) = 0
df6eaac306 Ed H*0090         ENDDO
e9b72f2bd9 Ed H*0091       ENDDO
5bc9611487 Ed H*0092
                0093       DO i = 1,MNC_MAX_INFO
                0094         mnc_cw_cit(1,i) = 0
                0095         mnc_cw_cit(2,i) = 0
                0096         mnc_cw_cit(3,i) = -1
                0097       ENDDO
                0098
ed1920da46 Mart*0099       DO i = 1,2
                0100        mnc_def_imv(i) = UNSET_I
                0101        mnc_def_rmv(i) = UNSET_FLOAT4
                0102        mnc_def_dmv(i) = UNSET_FLOAT8
                0103       ENDDO
                0104
5bc9611487 Ed H*0105 C     The default for all file types is to add the iter to the name and
                0106 C     grow them in "lock step" together
                0107       mnc_cw_cit(1,1) = 1
                0108       mnc_cw_cit(2,1) = nIter0
                0109
                0110 C     Here, we do not add the iter to the file name
                0111       mnc_cw_cit(1,2) = -1
                0112       mnc_cw_cit(2,2) = -1
                0113
                0114 C     For checkpoint files, we want to use the current iter but we do
                0115 C     not (by default, anyway) want to update the current iter for
                0116 C     everything else
                0117       mnc_cw_cit(1,3) = 3
                0118       mnc_cw_cit(2,3) = nIter0
                0119
d77e828db7 Ed H*0120 C     DO i = 1,MNC_CW_CVDAT
                0121 C     mnc_cw_cvdt(i) = 0.0D0
                0122 C     ENDDO
e9b72f2bd9 Ed H*0123
a7ffe10af7 Ed H*0124       RETURN
                0125       END
                0126
e9b72f2bd9 Ed H*0127 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|