Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:44:27 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
6c747cb1b2 Patr*0001 C     /==========================================================\
                0002 C     | THSICE_COST.h                                            |
                0003 C     | o Sea ice cost terms.                                    |
                0004 C     \==========================================================/
                0005 C
                0006 C
                0007 c     objf_thsice    - sea-ice volume
                0008 
                0009 #ifdef ALLOW_COST
                0010       common /thsice_cost_objf/
                0011      &                objf_thsice
                0012       _RL  objf_thsice        (nsx,nsy)
                0013 
                0014       common /thsice_cost_aux_r/
                0015      &                num_thsice,
                0016      &                mult_thsice
                0017       _RL  num_thsice  (nsx,nsy)
                0018       _RL  mult_thsice
                0019 
                0020 c     cost_ice_flag  - cost_ice flag
                0021       common /thsice_cost_ice_i/ 
                0022      &                           thsice_cost_ice_flag
                0023       integer thsice_cost_ice_flag
                0024 #endif
                0025 
                0026 CEH3 ;;; Local Variables: ***
                0027 CEH3 ;;; mode:fortran ***
                0028 CEH3 ;;; End: ***