Changeset 2418 for LMDZ5/trunk/libf/phylmd
- Timestamp:
- Jan 3, 2016, 11:16:34 AM (9 years ago)
- Location:
- LMDZ5/trunk/libf/phylmd
- Files:
-
- 1 added
- 1 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90
r2403 r2418 36 36 USE iniphysiq_mod, ONLY: iniphysiq 37 37 USE mod_const_mpi, ONLY: comm_lmdz 38 USE physiq_mod, ONLY: physiq 38 39 39 40 implicit none … … 219 220 logical :: firstcall=.true. 220 221 logical :: lastcall=.false. 221 real :: phis = 0.0222 real :: dpsrf 222 real :: phis(1) = 0.0 223 real :: dpsrf(1) 223 224 224 225 !--------------------------------------------------------------------- -
LMDZ5/trunk/libf/phylmd/physiq_mod.F90
r2416 r2418 1 ! 1 2 ! $Id$ 3 ! 2 4 !#define IO_DEBUG 5 MODULE physiq_mod 6 7 IMPLICIT NONE 8 9 CONTAINS 3 10 4 11 SUBROUTINE physiq (nlon,nlev, & … … 4470 4477 ! first=.false. 4471 4478 4472 RETURN 4479 4473 4480 END SUBROUTINE physiq 4481 4474 4482 FUNCTION qcheck(klon,klev,paprs,q,ql,aire) 4475 4483 IMPLICIT none … … 4499 4507 qcheck = qtotal/zx 4500 4508 ! 4501 RETURN4502 4509 END FUNCTION qcheck 4503 SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit) 4504 IMPLICIT none 4505 ! 4506 ! Tranformer une variable de la grille physique a 4507 ! la grille d'ecriture 4508 ! 4509 INTEGER nfield,nlon,iim,jjmp1, jjm 4510 REAL fi(nlon,nfield), ecrit(iim*jjmp1,nfield) 4511 ! 4512 INTEGER i, n, ig 4513 ! 4514 jjm = jjmp1 - 1 4515 DO n = 1, nfield 4516 DO i=1,iim 4517 ecrit(i,n) = fi(1,n) 4518 ecrit(i+jjm*iim,n) = fi(nlon,n) 4519 ENDDO 4520 DO ig = 1, nlon - 2 4521 ecrit(iim+ig,n) = fi(1+ig,n) 4522 ENDDO 4523 ENDDO 4524 RETURN 4525 END SUBROUTINE gr_fi_ecrit 4526 4510 4511 END MODULE physiq_mod
Note: See TracChangeset
for help on using the changeset viewer.