/[MITgcm]/MITgcm_contrib/shelfice_remeshing/MANUAL/code/shelfice_thermodynamics.F
ViewVC logotype

Diff of /MITgcm_contrib/shelfice_remeshing/MANUAL/code/shelfice_thermodynamics.F

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

revision 1.3 by dgoldberg, Tue Oct 13 15:54:41 2015 UTC revision 1.4 by dgoldberg, Thu Oct 22 12:28:27 2015 UTC
# Line 747  C     Friction velocity Line 747  C     Friction velocity
747       &  CALL DIAGNOSTICS_FILL(uStarDiag,'SHIuStar',0,1,0,1,1,myThid)       &  CALL DIAGNOSTICS_FILL(uStarDiag,'SHIuStar',0,1,0,1,1,myThid)
748  #endif /* SHI_ALLOW_GAMMAFRICT */  #endif /* SHI_ALLOW_GAMMAFRICT */
749        ENDIF        ENDIF
750            CALL DIAGNOSTICS_FILL(R_shelfice,'SHI_Rshelfice',
751         &      0,1,0,1,1,myThid)
752    
753    
754  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
755    
756  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22