Changeset 636 for LMDZ4/trunk/libf/dyn3d/grilles_gcm_netcdf.F

Timestamp:

May 17, 2005, 2:30:54 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Pour pallier un problème de ferret provoquant un saut dans les coordonnees
LF

File:

• LMDZ4/trunk/libf/dyn3d/grilles_gcm_netcdf.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3d/grilles_gcm_netcdf.F

@@ -73 +73 @@
 
       do i=1,iip1
-         rlonudeg(i)=rlonu(i)*180./pi
-         rlonvdeg(i)=rlonv(i)*180./pi
+         rlonudeg(i)=rlonu(i)*180./pi + 360.
+         rlonvdeg(i)=rlonv(i)*180./pi + 360.
       enddo