Changeset 2418 for LMDZ5/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Jan 3, 2016, 11:16:34 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Improving the physics/dynamics interface:

• added module callphysiq_mod.F90 in dynphy_lonlat/phy* which contains the routine "call_physiq" which is called by calfis* and calls the physics. This way different "physiq" routine from different physics packages may be called: The calfis* routines now exposes all available fields that might be transmitted to physiq but which is actually send (ie: expected/needed by physiq) is decided in call_physiq.
• turned "physiq.F90" into module "physiq_mod.F90" for better control of "physiq" arguments. Extracted embeded "gr_fi_ecrit" as self-standing routine (but note that this routine actually only works in serial mode).

EM

File:

• LMDZ5/trunk/libf/phylmd/physiq_mod.F90 (moved) (moved from LMDZ5/trunk/libf/phylmd/physiq.F90) (3 diffs)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ +1 @@
+!
 ! $Id$
+!
 !#define IO_DEBUG
+MODULE physiq_mod
+
+IMPLICIT NONE
+
+CONTAINS
 
 SUBROUTINE physiq (nlon,nlev, &
@@ -4470 +4477 @@
   !      first=.false.
 
-  RETURN
+
 END SUBROUTINE physiq
+
 FUNCTION qcheck(klon,klev,paprs,q,ql,aire)
   IMPLICIT none
@@ -4499 +4507 @@
   qcheck = qtotal/zx
   !
-  RETURN
 END FUNCTION qcheck
-SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit)
-  IMPLICIT none
-  !
-  ! Tranformer une variable de la grille physique a
-  ! la grille d'ecriture
-  !
-  INTEGER nfield,nlon,iim,jjmp1, jjm
-  REAL fi(nlon,nfield), ecrit(iim*jjmp1,nfield)
-  !
-  INTEGER i, n, ig
-  !
-  jjm = jjmp1 - 1
-  DO n = 1, nfield
-     DO i=1,iim
-        ecrit(i,n) = fi(1,n)
-        ecrit(i+jjm*iim,n) = fi(nlon,n)
-     ENDDO
-     DO ig = 1, nlon - 2
-        ecrit(iim+ig,n) = fi(1+ig,n)
-     ENDDO
-  ENDDO
-  RETURN
-  END SUBROUTINE gr_fi_ecrit
-
+
+END MODULE physiq_mod