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

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

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

revision 1.1 by heimbach, Mon May 14 22:08:41 2001 UTC revision 1.2 by heimbach, Thu Feb 7 20:00:09 2002 UTC
# Line 42  c     == global variables == Line 42  c     == global variables ==
42    
43  c     == end of interface ==  c     == end of interface ==
44    
 c     Get the surface forcing fields.  
       call exf_GetFFields(  mytime, myiter, mythid )  
   
45  #ifdef ALLOW_HFLUX_CONTROL  #ifdef ALLOW_HFLUX_CONTROL
46        call ctrl_getheatflux ( mytime, myiter, mythid )        call ctrl_getheatflux ( mytime, myiter, mythid )
47  #endif  #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22