Ignore:
Timestamp:
Nov 10, 2017, 2:25:09 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Continuing LMDZ/DYNAMICO physiqs match-up. First step in replacing dtime in the physics

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/DYNAMICO-conv/libf/phylmd/grid_noro_m.F90

    • Property svn:keywords set to Id
    r2665 r3065  
     1!
     2! $Id$
     3!
    14MODULE grid_noro_m
    25!
    … …  
    334337  imar=assert_eq(SIZE(x),SIZE(zphi,1),SIZE(mask,1),TRIM(modname)//" imar")-1
    335338  jmar=assert_eq(SIZE(y),SIZE(zphi,2),SIZE(mask,2),TRIM(modname)//" jmar")
    336 ! IF(imar/=iim)   CALL abort_gcm(TRIM(modname),'imar/=iim'  ,1)
    337 ! IF(jmar/=jjm+1) CALL abort_gcm(TRIM(modname),'jmar/=jjm+1',1)
    338339  iext=imdp/10
    339340  xpi = ACOS(-1.)
Note: See TracChangeset for help on using the changeset viewer.