Changeset 4192 for dynamico_lmdz/simple_physics/phyparam/param

Timestamp:

Dec 20, 2019, 12:56:43 AM (6 years ago)

Author:

dubos

Message:

simple_physics : cleanup astronomy

Location:

dynamico_lmdz/simple_physics/phyparam/param

Files:

• iniphyparam.F (modified) (1 diff)
• orbite.F (deleted)
• phyparam.F (modified) (3 diffs)
• sw.F (modified) (1 diff)
• zerofi.F (deleted)

dynamico_lmdz/simple_physics/phyparam/param/iniphyparam.F

@@ -64 +64 @@
       INTEGER ig,ierr,offset
  
-      EXTERNAL inifrict,orbite
+      EXTERNAL inifrict
  
       print*,'INIPHYPARAM'

dynamico_lmdz/simple_physics/phyparam/param/phyparam.F

@@ -164 +164 @@
 
       EXTERNAL convadj
-      EXTERNAL orbite,mucorr
+      EXTERNAL mucorr
       EXTERNAL ismin,ismax
 
@@ -482 +482 @@
          ENDDO
 
-         CALL zerophys(ngrid*nlayer,zdum1)
-         CALL zerophys(ngrid*nlayer,zdum2)
-c        CALL zerophys(ngrid*nlayer,zdum3)
+         zdum1(:,:)=0.
+         zdum2(:,:)=0.
+
          do l=1,nlayer
             do ig=1,ngrid
@@ -546 +546 @@
             ENDDO
          ENDDO
-         CALL zerophys(ngrid*nlayer,zdufr)
-         CALL zerophys(ngrid*nlayer,zdvfr)
-         CALL zerophys(ngrid*nlayer,zdhfr)
+
+         zdufr(:,:)=0.
+         zdvfr(:,:)=0.
+         zdhfr(:,:)=0.
+
          CALL convadj(ngrid,nlayer,ptimestep,
      $                pplay,pplev,zpopsk,

dynamico_lmdz/simple_physics/phyparam/param/sw.F

@@ -204 +204 @@
 
       IF (ldiurn) THEN
-         CALL zerophys(ngrid,fsrfvis)
+         fsrfvis(:)=0.
          CALL monscatter(ncount,fsrfvis,index,zflux)
-         CALL zerophys(ngrid*nlayer,dtsw)
+         dtsw(:,:)=0.
          DO l=1,nlayer
             CALL monscatter(ncount,dtsw(1,l),index,zdtsw(1,l))