Changeset 564 for trunk

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

Files:

• SIMU/DEF/LES (added)
• SIMU/DEF/LES/LES_GUSEV.tar.gz (added)
• SIMU/DEF/LES/LES_PHOENIXlowres.tar.gz (added)
• SIMU/DEF/PALEO.tar.gz (added)
• SIMU/DEF/POLARWATERCYCLE_old.tar.gz (added)
• SIMU/DEF/POLAR_4NEST (added)
• SIMU/DEF/POLAR_4NEST/callphys.def (added)
• SIMU/DEF/POLAR_4NEST/callphysd2_.def (added)
• SIMU/DEF/POLAR_4NEST/callphysd3_.def (added)
• SIMU/DEF/POLAR_4NEST/callphysd4_.def (added)
• SIMU/DEF/POLAR_4NEST/namelist.input (added)
• SIMU/DEF/POLAR_4NEST/namelist.wps (added)
• SIMU/DEF/POLAR_4NEST/namelist.wps.A (added)
• SRC/POSTPROC/api.F90 (modified) (1 diff)
• SRC/POSTPROC/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