Called by :
ndown_em (main/ndown_em.F)Arguments:
1. ivgtyp :: INTEGER , INTENT( INOUT ) , DIMENSION( ims:ime,jms:jme ) 2. isltyp :: REAL , INTENT( INOUT ) , DIMENSION( ims:ime,1:num_veg_cat,jms:jme ) 3. landmask :: REAL , INTENT( INOUT ) , DIMENSION( ims:ime,jms:jme ) 4. ids :: INTEGER , INTENT( IN ) 5. ide :: INTEGER , INTENT( IN ) 6. jds :: INTEGER , INTENT( IN ) 7. jde :: INTEGER , INTENT( IN ) 8. kds :: INTEGER , INTENT( IN ) 9. kde :: INTEGER , INTENT( IN ) 10. ims :: INTEGER , INTENT( IN ) 11. ime :: INTEGER , INTENT( IN ) 12. jms :: INTEGER , INTENT( IN ) 13. jme :: INTEGER , INTENT( IN ) 14. kms :: INTEGER , INTENT( IN ) 15. kme :: INTEGER , INTENT( IN ) 16. its :: INTEGER , INTENT( IN ) 17. ite :: INTEGER , INTENT( IN ) 18. jts :: INTEGER , INTENT( IN ) 19. jte :: INTEGER , INTENT( IN ) 20. kts :: INTEGER , INTENT( IN ) 21. kte :: INTEGER , INTENT( IN ) 22. iswater :: INTEGER , INTENT( IN )