/[MITgcm]/MITgcm/pkg/streamice/streamice_get_vel_fp_err.F
ViewVC logotype

Diff of /MITgcm/pkg/streamice/streamice_get_vel_fp_err.F

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

revision 1.2 by dgoldberg, Sun Sep 7 07:46:40 2014 UTC revision 1.3 by jmc, Tue Sep 9 23:01:46 2014 UTC
# Line 25  C     === Global variables === Line 25  C     === Global variables ===
25  !#include "finclude/petsc.h"  !#include "finclude/petsc.h"
26  !#endif  !#endif
27    
 #ifdef ALLOW_AUTODIFF_TAMC  
 # include "tamc.h"  
 #endif  
   
28  C     !INPUT/OUTPUT ARGUMENTS  C     !INPUT/OUTPUT ARGUMENTS
29        _RL err_max        _RL err_max
30        INTEGER myThid        INTEGER myThid
31          
32  #ifdef ALLOW_STREAMICE  #ifdef ALLOW_STREAMICE
33    
34        INTEGER conv_flag, i, j, bi, bj        INTEGER conv_flag, i, j, bi, bj
35          
36        INTEGER ikey_nl        INTEGER ikey_nl
37        _RL err_tempu, err_tempv        _RL err_tempu, err_tempv
38        _RL max_vel, tempu, tempv, err_lastchange, cgtol        _RL max_vel, tempu, tempv, err_lastchange, cgtol
39        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
40    
   
41         err_max = 0. _d 0         err_max = 0. _d 0
42    
43         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
# Line 67  C     !INPUT/OUTPUT ARGUMENTS Line 62  C     !INPUT/OUTPUT ARGUMENTS
62    
63         CALL GLOBAL_MAX_R8 (err_max, myThid)         CALL GLOBAL_MAX_R8 (err_max, myThid)
64    
   
   
   
     
65  #endif  #endif
66        RETURN        RETURN
67        END        END
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22