/[MITgcm]/MITgcm/pkg/layers/layers_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/layers/layers_init_varia.F

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

revision 1.3 by gforget, Wed Sep 19 18:48:18 2012 UTC revision 1.4 by rpa, Wed Oct 17 18:49:15 2012 UTC
# Line 38  C     Loop through 3D variables: Line 38  C     Loop through 3D variables:
38            DO i=1-Olx,sNx+Olx            DO i=1-Olx,sNx+Olx
39    
40  #ifdef LAYERS_UFLUX  #ifdef LAYERS_UFLUX
41             layers_UFlux(i,j,kg,bi,bj,iLa) = 0. _d 0             layers_UH(i,j,kg,bi,bj,iLa) = 0. _d 0
42  #ifdef LAYERS_THICKNESS  #ifdef LAYERS_THICKNESS
43             layers_HU(i,j,kg,bi,bj,iLa) = 0. _d 0             layers_Hw(i,j,kg,bi,bj,iLa) = 0. _d 0
44               layers_PIw(i,j,kg,bi,bj,iLa) = 0. _d 0
45               layers_U(i,j,kg,bi,bj,iLa) = 0. _d 0
46  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
47  #endif /* LAYERS_UFLUX */  #endif /* LAYERS_UFLUX */
48    
49  #ifdef LAYERS_VFLUX  #ifdef LAYERS_VFLUX
50             layers_VFlux(i,j,kg,bi,bj,iLa) = 0. _d 0             layers_VH(i,j,kg,bi,bj,iLa) = 0. _d 0
51  #ifdef LAYERS_THICKNESS  #ifdef LAYERS_THICKNESS
52             layers_HV(i,j,kg,bi,bj,iLa) = 0. _d 0             layers_Hs(i,j,kg,bi,bj,iLa) = 0. _d 0
53               layers_PIs(i,j,kg,bi,bj,iLa) = 0. _d 0
54               layers_V(i,j,kg,bi,bj,iLa) = 0. _d 0
55  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
56  #endif /* LAYERS_VFLUX */  #endif /* LAYERS_VFLUX */
57    
# Line 64  C     Initialize averages to zero Line 68  C     Initialize averages to zero
68          layers_TimeAve(bi,bj) = 0. _d 0          layers_TimeAve(bi,bj) = 0. _d 0
69    
70  #ifdef LAYERS_UFLUX  #ifdef LAYERS_UFLUX
71          CALL TIMEAVE_RESET(layers_UFlux_T,Nlayers,bi,bj,myThid)          CALL TIMEAVE_RESET(layers_UH_T,Nlayers,bi,bj,myThid)
72  #ifdef LAYERS_THICKNESS  #ifdef LAYERS_THICKNESS
73          CALL TIMEAVE_RESET(layers_HU_T,Nlayers,bi,bj,myThid)          CALL TIMEAVE_RESET(layers_Hw_T,Nlayers,bi,bj,myThid)
74  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
75  #endif /* LAYERS_UFLUX */  #endif /* LAYERS_UFLUX */
76    
77  #ifdef LAYERS_VFLUX  #ifdef LAYERS_VFLUX
78          CALL TIMEAVE_RESET(layers_VFlux_T,Nlayers,bi,bj,myThid)          CALL TIMEAVE_RESET(layers_VH_T,Nlayers,bi,bj,myThid)
79  #ifdef LAYERS_THICKNESS  #ifdef LAYERS_THICKNESS
80          CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid)          CALL TIMEAVE_RESET(layers_Hs_T,Nlayers,bi,bj,myThid)
81  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
82  #endif /* LAYERS_VFLUX */  #endif /* LAYERS_VFLUX */
83        ENDIF !IF ( iLa.EQ.1 ) THEN        ENDIF !IF ( iLa.EQ.1 ) THEN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22