Back to home page

darwin3

 
 

    


File indexing completed on 2024-12-17 18:42:24 UTC

view on githubraw file Latest commit cf705a6c on 2022-08-14 22:40:32 UTC
cf705a6c8e Mart*0001 C     Define some local weights specific to this experiment
                0002 C     whfluxm     :: weight for heat flux
                0003 C     wtheta      :: dummy weight for temperature
                0004       COMMON /COST_LOCAL_WEIGHTS/ whfluxm, wtheta
                0005       _RL whfluxm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0006       _RL wtheta ( Nr,nSx,nSy )