Changeset 564 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Mar 6, 2012, 9:50:28 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: corrected the stupid funky spiral bug in idealized winds interpolated through API. added more def files.

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/POSTPROC

Files:

• api.F90 (modified) (1 diff)
• namelist.api.variability (added)

trunk/MESOSCALE/LMD_MM_MARS/SRC/POSTPROC/api.F90

@@ -1619 +1619 @@
    real, parameter :: RAD_PER_DEG = PI/180.
 
-  IF ( map_proj .ge. 3 ) THEN                         ! No need to rotate
+  IF (( map_proj .ge. 3 ) .OR. ( map_proj .eq. 0 )) THEN                         ! No need to rotate
     !PRINT *, 'NO NEED TO ROTATE !!!! equivalent to output U,V with unstagger_grid'
     UUUmet(:,:,:) = UUU