/[MITgcm]/MITgcm/pkg/fizhi/fizhi_alarms.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_alarms.F

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

revision 1.7 by molod, Wed Jul 28 01:25:07 2004 UTC revision 1.8 by molod, Thu Jul 29 15:21:50 2004 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "FIZHI_OPTIONS.h"  #include "FIZHI_OPTIONS.h"
5        subroutine fizhi_alarms (nymdb,nhmsb,ndt)        subroutine fizhi_alarms (nymdb,nhmsb,deltaT)
6    
7  C***********************************************************************          C***********************************************************************        
8  C  Purpose                                                                        C  Purpose                                                                      
# Line 22  C*************************************** Line 22  C***************************************
22    
23  c Input Parameters  c Input Parameters
24  c ----------------  c ----------------
25        integer  nymdb,nhmsb,ndt        integer  nymdb,nhmsb
26          _RL deltaT
27    
28  c MPI Utilities  c MPI Utilities
29  c -------------  c -------------
# Line 34  c ------------- Line 35  c -------------
35    
36  c Physics Frequencies  c Physics Frequencies
37  c -------------------  c -------------------
38          integer ndt
39        integer  nhmsf, m,n, nd        integer  nhmsf, m,n, nd
40        integer  ndlw, ndsw, ndturb, ndmoist        integer  ndlw, ndsw, ndturb, ndmoist
41                                                                                                                                                                    
# Line 42  c ------------------- Line 44  c -------------------
44  #else  #else
45        myid = 1        myid = 1
46  #endif  #endif
47    
48          ndt = deltaT
49    
50        if( ndt.ne.0 ) then        if( ndt.ne.0 ) then
51    
52  C Longwave  Radiation Frequency  C Longwave  Radiation Frequency
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22