Subroutine : COUPLE

Defined in: dyn_em/module_big_step_utilities_em.F

Description:

subroutine couple couples the input variable with the dry-air column mass (mu).

Called by :

ndown_em (main/ndown_em.F)

assemble_output (main/real_em.F)

      med_sidata_input (main/real_em.F)

            real_data (main/real_em.F)

Arguments:

  1. mu           :: REAL    , INTENT( IN )    , DIMENSION( ims:ime,jms:jme )
  2. mub          :: REAL    , INTENT( IN )    , DIMENSION( ims:ime,jms:jme )
  3. rfield       :: REAL    , INTENT( OUT )   , DIMENSION( ims:ime,kms:kme,jms:jme )
  4. field        :: REAL    , INTENT( IN )    , DIMENSION( ims:ime,kms:kme,jms:jme )
  5. name         :: INTEGER , INTENT( IN )    
  6. msf          :: REAL    , INTENT( IN )    , DIMENSION( ims:ime,jms:jme )
  7. ids          :: INTEGER , INTENT( IN )    
  8. ide          :: INTEGER , INTENT( IN )    
  9. jds          :: INTEGER , INTENT( IN )    
 10. jde          :: INTEGER , INTENT( IN )    
 11. kds          :: INTEGER , INTENT( IN )    
 12. kde          :: INTEGER , INTENT( IN )    
 13. ims          :: INTEGER , INTENT( IN )    
 14. ime          :: INTEGER , INTENT( IN )    
 15. jms          :: INTEGER , INTENT( IN )    
 16. jme          :: INTEGER , INTENT( IN )    
 17. kms          :: INTEGER , INTENT( IN )    
 18. kme          :: INTEGER , INTENT( IN )    
 19. its          :: INTEGER , INTENT( IN )    
 20. ite          :: INTEGER , INTENT( IN )    
 21. jts          :: INTEGER , INTENT( IN )    
 22. jte          :: INTEGER , INTENT( IN )    
 23. kts          :: INTEGER , INTENT( IN )    
 24. kte          :: INTEGER , INTENT( IN )

COUPLE calls :

calc_mu_staggered (dyn_em/module_big_step_utilities_em.F)