Called by :
ndown_em (main/ndown_em.F)
1. ndate :: INTEGER , INTENT( IN ) 2. odate :: REAL , INTENT( IN ) 3. idts :: INTEGER , INTENT( OUT )