Changeset 1542 for trunk/LMDZ.GENERIC/libf/phystd/dyn1d
- Timestamp:
- Apr 18, 2016, 8:45:35 AM (9 years ago)
- Location:
- trunk/LMDZ.GENERIC/libf/phystd/dyn1d
- Files:
-
- 1 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F
r1539 r1542 11 11 ! use comsaison_h 12 12 use comsoil_h, only: nsoilmx, layer, mlayer, inertiedat, volcapa 13 USE comgeomfi_h, only: lati, long, area14 13 use phyredem, only: physdem0,physdem1 15 use comgeomphy, only: initcomgeomphy, airephy14 use comgeomphy, only: initcomgeomphy, cell_area 16 15 use slab_ice_h, only: noceanmx 17 16 use planete_mod, only: apoastr,periastr,year_day,peri_day, … … 159 158 IF (.not.ALLOCATED(sinlon)) ALLOCATE(sinlon(1)) 160 159 IF (.not.ALLOCATED(coslon)) ALLOCATE(coslon(1)) 161 !! those are defined in comgeomfi_h162 IF (.not. ALLOCATED(lati)) ALLOCATE(lati(1))163 IF (.not. ALLOCATED(long)) ALLOCATE(long(1))164 IF (.not. ALLOCATED(area)) ALLOCATE(area(1))165 166 160 167 161 saveprofile=.false. … … 326 320 !!! GEOGRAPHICAL INITIALIZATIONS 327 321 !!! AREA. useless in 1D 328 area(1)=1.E+0 329 airephy(1)=area(1) !JL+EM to have access to the area in the diagfi.nc files. area in comgeomfi.h and aire in comgeom.h 322 cell_area(1)=1.E+0 !JL+EM to have access to the area in the diagfi.nc files. 330 323 !!! GEOPOTENTIAL. useless in 1D because control by surface pressure 331 324 phisfi(1)=0.E+0 … … 511 504 cpp=1.d-7 !JL because we divide by cpp in inifis, there may be a more elegant solution 512 505 CALL inifis(1,llm,nq,day0,daysec,nday,dtphys, 513 . latitude,longitude, area,rad,g,r,cpp)506 . latitude,longitude,cell_area,rad,g,r,cpp) 514 507 515 508 nsoil=nsoilmx … … 673 666 IF (qsurf(i_co2_ice).ge.1.E+0) THEN 674 667 ! if we have some CO2 ice on the surface, change emissivity 675 if (lati (1).ge.0) then ! northern hemisphere668 if (latitude(1).ge.0) then ! northern hemisphere 676 669 emis(1)=emisice(1) 677 670 else ! southern hemisphere … … 834 827 c It is needed to transfert physics variables to "physiq"... 835 828 836 call physdem0("startfi.nc",long ,lati,nsoilmx,1,llm,nq,837 & dtphys,real(day0),time, area,829 call physdem0("startfi.nc",longitude,latitude,nsoilmx,1,llm,nq, 830 & dtphys,real(day0),time,cell_area, 838 831 & albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe) 839 832 call physdem1("startfi.nc",nsoilmx,1,llm,nq, … … 843 836 & rnat,pctsrf_sic,tslab,tsea_ice,sea_ice) 844 837 845 ! call physdem1(1,"startfi.nc",long,lati,nsoilmx,nq,846 ! & dtphys,float(day0),847 ! & time,tsurf,tsoil,emis,q2,qsurf,848 ! & area,albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe,849 ! & cloudfrac,totcloudfrac,hice,nametrac)850 851 838 c======================================================================= 852 839 c BOUCLE TEMPORELLE DU MODELE 1D … … 861 848 call stellarlong(day*1.0,zls) 862 849 ! write(103,*) 'Ls=',zls*180./pi 863 ! write(103,*) 'Lat=', lati (1)*180./pi850 ! write(103,*) 'Lat=', latitude(1)*180./pi 864 851 ! write(103,*) 'RunEnd - Atmos. Temp. File' 865 852 ! write(103,*) 'RunEnd - Atmos. Temp. File' 866 853 ! write(104,*) 'Ls=',zls*180./pi 867 ! write(104,*) 'Lat=', lati (1)854 ! write(104,*) 'Lat=', latitude(1) 868 855 ! write(104,*) 'RunEnd - Atmos. Temp. File' 869 856 ENDIF … … 923 910 924 911 c Pour certain test : pas de coriolis a l'equateur 925 c if(lati (1).eq.0.) then912 c if(latitude(1).eq.0.) then 926 913 DO ilayer=1,nlayer 927 914 du(ilayer)=du(ilayer)+ (gru-u(ilayer))/1.e4
Note: See TracChangeset
for help on using the changeset viewer.