** 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: Fri, 18 Sep 2025 05:09:21 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/regrid/regrid_mnc_init.F
Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:43:06 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
aa076db465 Ed H*0001 #include "REGRID_OPTIONS.h"
                0002 
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !ROUTINE: REGRID_MNC_INIT
                0006 
                0007 C     !INTERFACE:
                0008       SUBROUTINE REGRID_MNC_INIT( myThid )
                0009 
                0010 C     !DESCRIPTION:
                0011 C     Initialize MNC lookup tables for REGRID.
                0012 
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018 #include "REGRID_SIZE.h"
                0019 #include "REGRID.h"
                0020 #ifdef ALLOW_MNC
51f3863fef Mart*0021 #include "MNC_COMMON.h"
aa076db465 Ed H*0022 #endif /* ALLOW_MNC */
                0023 
                0024 C     !INPUT PARAMETERS:
                0025       INTEGER myThid
                0026 CEOP
                0027 
                0028 C     !LOCAL VARIABLES:
                0029       INTEGER i, k, ndim
                0030 #ifdef ALLOW_MNC
                0031       INTEGER CW_MAX_LOC
                0032       PARAMETER ( CW_MAX_LOC = 6 )
                0033       INTEGER dim(CW_MAX_LOC), ib(CW_MAX_LOC), ie(CW_MAX_LOC)
                0034       CHARACTER*(MNC_MAX_CHAR) name
                0035       character*(MNC_MAX_CHAR) dn(CW_MAX_LOC)
                0036       
                0037       IF (useMNC) THEN
                0038 
                0039 C         DO i = 1,CW_MAX_LOC
                0040 C           dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
                0041 C           dim(i) = 0
                0042 C           ib(i) = 0
                0043 C           ie(i) = 0
                0044 C         ENDDO
                0045 C         dn(2)(1:1) = 'T'
                0046 C         dim(2)     = -1
                0047 C         ib(2)      =  1
                0048 C         ie(2)      =  1
                0049 
                0050 C         DO k = 1,regrid_ngrids
                0051 
                0052 C           name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
                0053 C           dn(1)(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
                0054 C           write(name,'(a,i3)') 'regrid_', k
                0055 C           write(dn(1),'(a,i3)') 'regrid_', k
                0056 C           dim(1) = REGRID_nout(k)
                0057 C           ib(1)  = 1
                0058 C           ie(1)  = REGRID_nout(k)
                0059           
                0060 C           CALL MNC_CW_ADD_GNAME(name, ndim, dim, dn, ib, ie, myThid)
                0061 
                0062 C         ENDDO
                0063         
                0064       ENDIF
                0065 
                0066 #endif /* ALLOW_MNC */
                0067 
                0068       RETURN
                0069       END
                0070 
                0071 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
[ 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!