Changeset 1232 for trunk/LMDZ.MARS/libf/dyn3d

Timestamp:

Apr 19, 2014, 10:35:38 AM (11 years ago)

Author:

emillour

Message:

Mars GCM:
Add "composition" option in newstart to enable global modification of
CO2,N2,Ar,O2 and CO mixing ratios. Plus some cleanup on physics variables
(saved arrays) which have been moved to modules.
FF+EM

File:

• trunk/LMDZ.MARS/libf/dyn3d/dump2d.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/dyn3d/dump2d.F

@@ -37 +37 @@
       IF(zllm.GT.zmin) THEN
       DO j=1,jm
-      WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
+!      WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
+      WRITE(*,'(72i1)') (NINT(9.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
       ENDDO
       ENDIF