Back to home page

MITgcm

 
 

    


File indexing completed on 2023-05-28 05:10:39 UTC

view on githubraw file Latest commit b4daa243 on 2023-05-28 03:53:22 UTC
b4daa24319 Shre*0001 C     ==================================================================
                0002 C     HEADER COST_TAP_TLM
                0003 C     ==================================================================
                0004 
                0005       COMMON /COST_R_D/
                0006      &        fcd
                0007       _RL  fcd
                0008 
                0009 #ifdef ALLOW_COST_STATE_FINAL
                0010       COMMON /COST_STATE_FINAL_R_D/
                0011      &        objf_state_finald
                0012       _RL  objf_state_finald (sNx,sNy,nSx,nSy,4*Nr+1)
                0013 #endif
                0014 
                0015 #ifdef ALLOW_COST_VECTOR
                0016       COMMON /COST_VECTOR_R_D/
                0017      &        objf_vectord
                0018       _RL  objf_vectord(sNx,nSx,nSy)
                0019 #endif
                0020 
                0021 C     ==================================================================
                0022 C     END OF HEADER COST_TAP_TLM
                0023 C     ==================================================================