/[MITgcm]/MITgcm/pkg/exf/exf_bulkcdn.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_bulkcdn.F

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

revision 1.5 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.6 by dimitri, Thu Jan 18 23:44:43 2007 UTC
# Line 38  c     == global variables == Line 38  c     == global variables ==
38    
39  #include "SIZE.h"  #include "SIZE.h"
40  #include "exf_constants.h"  #include "exf_constants.h"
41    #include "exf_param.h"
42    
43  c     == function arguments ==  c     == function arguments ==
44        _RL umps        _RL umps
45    
46  c     == end of interface ==  c     == end of interface ==
47    
48        exf_BulkCdn = cdrag_1/umps + cdrag_2 + cdrag_3*umps        exf_BulkCdn = exf_scal_BulkCdn *
49         &     ( cdrag_1/umps + cdrag_2 + cdrag_3*umps )
50    
51  #else  #else
52    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22