/[MITgcm]/MITgcm/verification/tutorial_global_oce_optim/code_oad/cost_weights.F
ViewVC logotype

Diff of /MITgcm/verification/tutorial_global_oce_optim/code_oad/cost_weights.F

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

revision 1.1 by heimbach, Fri Jan 17 22:01:16 2014 UTC revision 1.2 by jmc, Thu Sep 11 19:54:57 2014 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "COST_OPTIONS.h"  #include "COST_OPTIONS.h"
5    #ifdef ALLOW_CTRL
6    # include "CTRL_OPTIONS.h"
7    #endif
8    
9        SUBROUTINE COST_WEIGHTS( myThid )        SUBROUTINE COST_WEIGHTS( myThid )
10    
# Line 107  c     print*,'Weights for temperature: w Line 110  c     print*,'Weights for temperature: w
110            ENDDO            ENDDO
111          ENDDO          ENDDO
112        ENDDO        ENDDO
113  #endif  #endif /* ALLOW_COST_TEMP */
114    
115  C--   Then the hflux weights :  C--   Then the hflux weights :
116    
# Line 133  c            print*,'Uncertainties for H Line 136  c            print*,'Uncertainties for H
136  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO
137        CALL ACTIVE_WRITE_XY('whfluxm',whfluxm,1,0,myThid,dummy)        CALL ACTIVE_WRITE_XY('whfluxm',whfluxm,1,0,myThid,dummy)
138  #endif  #endif
139  #endif  #endif /* ALLOW_COST_HFLUXM or ALLOW_HFLUXM_CONTROL */
140        RETURN        RETURN
141        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22