** 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: Tue, 29 Dec 2025 06:09:11 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/eesupp/src/nml_set_terminator.F
Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:36:12 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
fc4fa6fbcd Jean*0001 #include "CPP_EEOPTIONS.h"
9f11b83930 Chri*0002 
                0003 CBOP
                0004 C     !ROUTINE: NML_SET_TERMINATOR
                0005 
                0006 C     !INTERFACE:
                0007       SUBROUTINE NML_SET_TERMINATOR(
fc4fa6fbcd Jean*0008      U                               record )
9f11b83930 Chri*0009 
                0010 C     !DESCRIPTION:
                0011 C     *=================================================================*
2b4c849245 Ed H*0012 C     | SUBROUTINE NML\_SET\_TERMINATOR
9f11b83930 Chri*0013 C     | o Set namelist terminator character
                0014 C     *=================================================================*
2b4c849245 Ed H*0015 C     | Change trailing \& to trailing / when needed
9f11b83930 Chri*0016 C     *=================================================================*
                0017 
                0018 C     !USES:
fc4fa6fbcd Jean*0019       IMPLICIT NONE
9f11b83930 Chri*0020 C     == Global variables ==
                0021 #include "EEPARAMS.h"
fc4fa6fbcd Jean*0022 
                0023 C     !FUNCTIONS:
9f11b83930 Chri*0024       INTEGER  ILNBLNK
                0025       EXTERNAL ILNBLNK
                0026 
                0027 C     !INPUT/OUTPUT PARAMETERS:
                0028 C     == Routine arguments ==
                0029       CHARACTER*(MAX_LEN_PREC) record
                0030 
                0031 C     !LOCAL VARIABLES:
                0032 C     == Local variables ==
fc4fa6fbcd Jean*0033       INTEGER iL
                0034       CHARACTER*(2) nmlEnd
                0035 #ifdef NML_TERMINATOR
                0036       PARAMETER( nmlEnd = ' /' )
                0037 #else
                0038       PARAMETER( nmlEnd = ' &' )
                0039 #endif
9f11b83930 Chri*0040 CEOP
                0041 
fc4fa6fbcd Jean*0042       iL = MAX(ILNBLNK(record),1)
                0043       IF ( iL .EQ. 2 ) THEN
                0044        IF ( record(1:2) .EQ. ' &' ) THEN
                0045         record(1:2) = nmlEnd
9f11b83930 Chri*0046        ENDIF
                0047       ENDIF
fc4fa6fbcd Jean*0048 
9f11b83930 Chri*0049       RETURN
                0050       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!