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

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

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

revision 1.14 by molod, Mon Mar 21 20:09:52 2005 UTC revision 1.15 by molod, Mon Mar 21 20:15:05 2005 UTC
# Line 47  c pe on dynamics and physics grid refers Line 47  c pe on dynamics and physics grid refers
47    
48         integer i, j, L, bi, bj, Lbotij         integer i, j, L, bi, bj, Lbotij
49         integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2         integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2
50           logical alarm
51           external alarm
52    
53         im1 = 1-OLx         im1 = 1-OLx
54         im2 = sNx+OLx         im2 = sNx+OLx
# Line 57  c pe on dynamics and physics grid refers Line 59  c pe on dynamics and physics grid refers
59         jdim1 = 1         jdim1 = 1
60         jdim2 = sNy         jdim2 = sNy
61    
62  C First Check to see if we can start a fizhi experiment at current time  c   First Check to see if we can start a fizhi experiment at current time
63  C  All Fizhi alarms must be on for the first time step of a segment  c    All Fizhi alarms must be on for the first time step of a segment
64    
65       if( .not.alarm('moist') .or. .not.alarm('turb')   .or.       if( .not.alarm('moist') .or. .not.alarm('turb')   .or.
66       .    .not.alarm('radsw') .or. .not.alarm('radlw') ) then       .    .not.alarm('radsw') .or. .not.alarm('radlw') ) then
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22