Changeset 690 for trunk/LMDZ.MARS/libf/bibio

Timestamp:

Jun 4, 2012, 10:37:25 AM (13 years ago)

Author:

acolaitis

Message:

Code re-organization in diverse parts of the GCM code. These are NOT cosmetic changes, but are needed for compilation of the Mesoscale model in NESTED configuration

File:

• trunk/LMDZ.MARS/libf/bibio/writestd.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/bibio/writestd.F

@@ -169 +169 @@
       ELSE
          IF (gformat(1:lnblnk(gformat)) .EQ. 'zxli1') THEN
-            CALL to36 (champ,icount,champ(imin),champ(imax),55, 1)
+            CALL to36 (champ,icount,champ(imin),champ(imax),55,1)
          ELSE 
             IF (gformat(1:lnblnk(gformat)) .EQ. 'zxli2') THEN
-               CALL to36(champ,icount,champ(imin),champ(imax),55,2)
+            CALL to36(champ,icount,champ(imin),champ(imax),55,2)
             ELSE
                IF (gformat(1:lnblnk(gformat)) .EQ. 'zxli3') THEN
-                  CALL to36(champ,icount,champ(imin),champ(imax),55,3)
+            CALL to36(champ,icount,champ(imin),champ(imax),55,3)
                ELSE
                   WRITE(55,'('//gformat(1:lnblnk(gformat))//')')