/[MITgcm]/MITgcm/pkg/autodiff/global_max_ad.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/global_max_ad.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by heimbach, Sat Jul 13 03:30:30 2002 UTC revision 1.3 by heimbach, Fri Jun 20 21:43:19 2008 UTC
# Line 19  CBOP Line 19  CBOP
19  C     !ROUTINE: GLOBAL_ADMAX_R4  C     !ROUTINE: GLOBAL_ADMAX_R4
20    
21  C     !INTERFACE:  C     !INTERFACE:
22    #ifdef AUTODIFF_TAMC_COMPATIBILITY
23        SUBROUTINE GLOBAL_ADMAX_R4(        SUBROUTINE GLOBAL_ADMAX_R4(
24       I                            myThid,       I                            myThid,
25       U                            maxPhi       U                            maxPhi
26       &                          )       &                          )
27    #else
28          SUBROUTINE GLOBAL_ADMAX_R4(
29         U                            maxPhi,
30         I                            myThid
31         &                          )
32    #endif
33        IMPLICIT NONE        IMPLICIT NONE
34  C     !DESCRIPTION:  C     !DESCRIPTION:
35  C     *==========================================================*  C     *==========================================================*
# Line 106  CBOP Line 113  CBOP
113  C     !ROUTINE: GLOBAL_ADMAX_R8  C     !ROUTINE: GLOBAL_ADMAX_R8
114    
115  C     !INTERFACE:  C     !INTERFACE:
116    #ifdef AUTODIFF_TAMC_COMPATIBILITY
117        SUBROUTINE GLOBAL_ADMAX_R8(        SUBROUTINE GLOBAL_ADMAX_R8(
118       I                            myThid,       I                            myThid,
119       O                            maxPhi       U                            maxPhi
120       &                          )       &                          )
121    #else
122          SUBROUTINE GLOBAL_ADMAX_R8(
123         U                            maxPhi,
124         I                            myThid
125         &                          )
126    #endif
127        IMPLICIT NONE        IMPLICIT NONE
128  C     !DESCRIPTION:  C     !DESCRIPTION:
129  C     *==========================================================*  C     *==========================================================*
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22