/[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.3 by heimbach, Tue Nov 12 20:34:41 2002 UTC revision 1.4 by dimitri, Tue Feb 18 05:33:54 2003 UTC
# Line 18  c Line 18  c
18  c     started: Christian Eckert eckert@mit.edu  30-Jun-1999  c     started: Christian Eckert eckert@mit.edu  30-Jun-1999
19  c  c
20  c     changed: Christian Eckert eckert@mit.edu  14-Jan-2000  c     changed: Christian Eckert eckert@mit.edu  14-Jan-2000
 c  
21  c              - Restructured the code in order to create a package  c              - Restructured the code in order to create a package
22  c                for the MITgcmUV.  c                for the MITgcmUV.
23  c  c
24  c              Christian Eckert eckert@mit.edu  12-Feb-2000  c              Christian Eckert eckert@mit.edu  12-Feb-2000
 c  
25  c              - Changed Routine names (package prefix: exf_)  c              - Changed Routine names (package prefix: exf_)
26  c  c
27    c     mods for pkg/seaice: menemenlis@jpl.nasa.gov 20-Dec-2002
28    c
29  c     ==================================================================  c     ==================================================================
30  c     SUBROUTINE exf_GetSurfaceFluxes  c     SUBROUTINE exf_GetSurfaceFluxes
31  c     ==================================================================  c     ==================================================================
# Line 66  c     == end of interface == Line 66  c     == end of interface ==
66        call ctrl_getlwflux ( mytime, myiter, mythid )        call ctrl_getlwflux ( mytime, myiter, mythid )
67  #endif  #endif
68    
 #ifdef ALLOW_CONTROL_NEW  
 c     Get the surface forcing control fields.  
       call exfa_GetFFields( mytime, myiter, mythid )  
 #endif  
   
69        end        end
   
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22