Changeset 2418 for LMDZ5/trunk/libf/phymar/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/phymar/physiq_mod.F90 (moved) (moved from LMDZ5/trunk/libf/phymar/physiq.F90) (2 diffs)

LMDZ5/trunk/libf/phymar/physiq_mod.F90

@@ -1 +1 @@
 ! $Id: physiq.F 1565 2011-08-31 12:53:29Z jghattas $
 !#define IO_DEBUG
+MODULE physiq_mod
+
+IMPLICIT NONE
+
+CONTAINS
 
 !========================================================================================================================
@@ -1141 +1146 @@
 PRINT*, 'Fin de physiq.f90'
 
-      return
-      end
-
-! sub-routine inutilisée :
-
-!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
+end subroutine physiq
+
+
+END MODULE physiq_mod