/[MITgcm]/MITgcm/model/src/ini_mixing.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_mixing.F

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

revision 1.5 by dimitri, Thu Apr 5 00:02:49 2007 UTC revision 1.6 by dimitri, Thu Apr 5 22:51:48 2007 UTC
# Line 48  CEOP Line 48  CEOP
48           DO k=1,Nr           DO k=1,Nr
49            DO j=1,sNy            DO j=1,sNy
50             DO i=1,sNx             DO i=1,sNx
51              diffKr3dS(i,j,k,bi,bj) = diffKrNrS(k)  #if (defined ALLOW_3D_DIFFKR || \
52              diffKr3dT(i,j,k,bi,bj) = diffKrNrT(k)       (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL)))
 #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  
53              diffKr(i,j,k,bi,bj) = diffKrNrS(k)              diffKr(i,j,k,bi,bj) = diffKrNrS(k)
54  #endif  #endif
55  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))
# Line 62  CEOP Line 61  CEOP
61          ENDDO          ENDDO
62         ENDDO         ENDDO
63    
64         IF ( diffKr3dSfile .NE. ' ' ) THEN  #if (defined ALLOW_3D_DIFFKR || \
65            CALL READ_FLD_XYZ_RL(diffKr3dSfile,' ',diffKr3dS,0,myThid)       (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL)))
66           IF ( diffKrFile .NE. ' ' ) THEN
67              CALL READ_FLD_XYZ_RL(diffKrFile,' ',diffKr,0,myThid)
68         ENDIF         ENDIF
        IF ( diffKr3dTfile .NE. ' ' ) THEN  
           CALL READ_FLD_XYZ_RL(diffKr3dTfile,' ',diffKr3dT,0,myThid)  
        ENDIF  
   
       _EXCH_XYZ_R8(diffKr3dS , myThid )  
       _EXCH_XYZ_R8(diffKr3dT , myThid )  
 #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  
69        _EXCH_XYZ_R8(diffKr , myThid )        _EXCH_XYZ_R8(diffKr , myThid )
70  #endif  #endif
71  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22