** 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: Sun, 18 May 2024 05:11:33 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/cd_code/cd_code_init_fixed.F
Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:38:17 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
592cbf818a Patr*0001 #include "CD_CODE_OPTIONS.h"
                0002 
                0003       SUBROUTINE CD_CODE_INIT_FIXED( myThid )
                0004 
                0005       IMPLICIT NONE
                0006 C     === Global variables ===
                0007 #include "SIZE.h"
                0008 #include "EEPARAMS.h"
                0009 #include "PARAMS.h"
                0010 
                0011 C     == Routine arguments ==
                0012 C     myThid -  Number of this instance of INI_UVEL 
                0013       INTEGER myThid
                0014 
                0015 C     !LOCAL VARIABLES:
                0016 C     == Local variables ==
                0017 CEOP
                0018 
                0019 #ifdef ALLOW_CD_CODE
                0020 
                0021 #ifdef ALLOW_MNC
                0022       IF (useMNC) THEN
                0023 C       Define grid types for CD_CODE variables
                0024         CALL MNC_CW_ADD_VNAME('uVelD', 'Cen_xy_Hn__C__t',
                0025      &       4,5, myThid)
                0026         CALL MNC_CW_ADD_VATTR_TEXT('uVelD','units','m/s', 
                0027      &       myThid)
                0028         CALL MNC_CW_ADD_VATTR_TEXT('uVelD','long_name',
                0029      &       'CD_CODE_u_velocity', myThid)
                0030         CALL MNC_CW_ADD_VATTR_TEXT('uVelD',
                0031      &       'coordinates','XC YC RC iter', myThid)
                0032         
                0033         CALL MNC_CW_ADD_VNAME('vVelD', 'Cen_xy_Hn__C__t',
                0034      &       4,5, myThid)
                0035         CALL MNC_CW_ADD_VATTR_TEXT('vVelD','units','m/s', 
                0036      &       myThid)
                0037         CALL MNC_CW_ADD_VATTR_TEXT('vVelD','long_name',
                0038      &       'CD_CODE_v_velocity', myThid)
                0039         CALL MNC_CW_ADD_VATTR_TEXT('vVelD',
                0040      &       'coordinates','XC YC RC iter', myThid)
                0041         
                0042         CALL MNC_CW_ADD_VNAME('Unm1', 'Cen_xy_Hn__C__t',
                0043      &       4,5, myThid)
                0044         CALL MNC_CW_ADD_VATTR_TEXT('Unm1','units','m/s', 
                0045      &       myThid)
                0046         CALL MNC_CW_ADD_VATTR_TEXT('Unm1','long_name',
                0047      &       'CD_CODE_u_velocity_at_n-1', myThid)
                0048         CALL MNC_CW_ADD_VATTR_TEXT('Unm1',
                0049      &       'coordinates','XC YC RC iter', myThid)
                0050         
                0051         CALL MNC_CW_ADD_VNAME('Vnm1', 'Cen_xy_Hn__C__t',
                0052      &       4,5, myThid)
                0053         CALL MNC_CW_ADD_VATTR_TEXT('Vnm1','units','m/s', 
                0054      &       myThid)
                0055         CALL MNC_CW_ADD_VATTR_TEXT('Vnm1','long_name',
                0056      &       'CD_CODE_u_velocity_at_n-1', myThid)
                0057         CALL MNC_CW_ADD_VATTR_TEXT('Vnm1',
                0058      &       'coordinates','XC YC RC iter', myThid)
                0059         
                0060         CALL MNC_CW_ADD_VNAME('etaNm1', 'Cen_xy_Hn__-__t',
                0061      &       3,4, myThid)
                0062         CALL MNC_CW_ADD_VATTR_TEXT('etaNm1','units','m', 
                0063      &       myThid)
                0064         CALL MNC_CW_ADD_VATTR_TEXT('etaNm1','long_name',
                0065      &       'CD_CODE_ssh_at_n-1', myThid)
                0066         CALL MNC_CW_ADD_VATTR_TEXT('etaNm1',
                0067      &       'coordinates','XC YC RC iter', myThid)
                0068       ENDIF
                0069 #endif /* ALLOW_MNC */
                0070 
                0071 #endif /*  ALLOW_CD_CODE  */
                0072 
                0073       RETURN
                0074       END
[ 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!