darwin3 |
|
|
|
|||
File indexing completed on 2024-12-17 18:34:05 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC6d54cf9ca1 Ed H*0001 #include "DEBUG_OPTIONS.h" 73ead277e0 Alis*0002 0003 SUBROUTINE DEBUG_CALL( 0004 I text, 0005 I myThid ) 0006 C /==========================================================\ 0007 C | SUBROUTINE DEBUG_CALL | 0008 C | o Prints to STDOUT the text argument after "CALLING S/R" | 0009 C |==========================================================| 0010 C \==========================================================/ 0011 IMPLICIT NONE 0012 0013 C === Global data === 0014 #include "SIZE.h" 0015 #include "EEPARAMS.h" 0016 0017 C === Routine arguments === 0018 CHARACTER*(*) text 0019 INTEGER myThid 0020 0021 C === Local variables ==== 0022 CHARACTER*(MAX_LEN_MBUF) msgBuf 0023 0024 WRITE(msgBuf,'(A,A)') 'CALLING S/R ',text 0025 CALL DEBUG_MSG( msgBuf, myThid ) 0026 0027 RETURN 0028 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/darwinproject/darwin3 by the 2.3.7-MITgcm-0.1 LXR engine. The LXR team |
|