Changeset 690 for trunk/LMDZ.MARS/libf/phymars
- Timestamp:
- Jun 4, 2012, 10:37:25 AM (13 years ago)
- Location:
- trunk/LMDZ.MARS/libf/phymars
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/aeroptproperties.F
r89 r690 1174 1174 ENDDO ! lg 1175 1175 write(out_str(1:1),'(i1.1)') out_nchannel 1176 1176 call WRITEDIAGFI(ngrid,'qextir'//out_str,"Ext.efficiency","", 1177 1177 & 3,out_qext) 1178 1178 call WRITEDIAGFI(ngrid,'omegir'//out_str,"Sing.Scat.Alb.","", 1179 1179 & 3,out_omeg) 1180 1180 call WRITEDIAGFI(ngrid,'gir'//out_str,"Asym.Factor","", 1181 1181 & 3,out_g) 1182 1182 c ------------------------------------------------------------- -
trunk/LMDZ.MARS/libf/phymars/co2snow.F
r38 r690 1 SUBROUTINE co2snow (ngrid,nlayer,ptimestep,emisref,condsub ,pplev,2 & pcondicea,pcondices,pfallice,pemisurf)1 SUBROUTINE co2snow (ngrid,nlayer,ptimestep,emisref,condsub 2 & ,pplev,pcondicea,pcondices,pfallice,pemisurf) 3 3 4 4 IMPLICIT NONE -
trunk/LMDZ.MARS/libf/phymars/datareadnc.F
r224 r690 122 122 write(*,*)'(in phymars/datareadnc.F)' 123 123 write(*,*)'It should be in :',trim(datafile),'/' 124 write(*,*)'1) You can set this path in the callphys.def file:' 124 write(*,*)'1) You can set this path in the 125 & callphys.def file:' 125 126 write(*,*)' datadir=/path/to/the/datafiles' 126 127 write(*,*)'2) If necessary, surface.nc (and other datafiles)' -
trunk/LMDZ.MARS/libf/phymars/inistats.F
r410 r690 92 92 ierr = NF_PUT_VAR_REAL (nid,nvarid,pseudoalt) 93 93 #endif 94 call def_var_stats(nid,"aps","hybrid pressure at midlayers" ," ",95 & 94 call def_var_stats(nid,"aps","hybrid pressure at midlayers" 95 & ," ",1,idim_llm,nvarid,ierr) 96 96 #ifdef NC_DOUBLE 97 97 ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,aps) … … 100 100 #endif 101 101 102 call def_var_stats(nid,"bps","hybrid sigma at midlayers" ," ",103 & 102 call def_var_stats(nid,"bps","hybrid sigma at midlayers" 103 & ," ",1,idim_llm,nvarid,ierr) 104 104 #ifdef NC_DOUBLE 105 105 ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,bps) -
trunk/LMDZ.MARS/libf/phymars/nirco2abs.F
r575 r690 197 197 pyy(l)=pplay(ig,l) 198 198 enddo 199 200 201 199 call interpnir(cor1,pyy,nlayer,corgcm,pres1d,npres) 200 call interpnir(oldoco2,pyy,nlayer,oco21d,pres1d,npres) 201 call interpnir(alfa2,pyy,nlayer,alfa,pres1d,npres) 202 202 endif 203 203 -
trunk/LMDZ.MARS/libf/phymars/nlte_calc.F
r498 r690 6 6 c a calculation of transmittances and derivatives of these ones 7 7 8 subroutine mzescape(ig,taustar,tauinf,tauii, ib,isot, iirw,iimu) 8 subroutine mzescape(ig,taustar,tauinf,tauii, 9 & ib,isot, iirw,iimu) 9 10 10 11 c jul 2011 malv+fgg adapted to LMD-MGCM -
trunk/LMDZ.MARS/libf/phymars/yamada4.F
r652 r690 596 596 return 597 597 end 598 SUBROUTINE vdif_q2(timestep,gravity,rconst,ngrid,nlay ,plev,temp,599 & 598 SUBROUTINE vdif_q2(timestep,gravity,rconst,ngrid,nlay 599 & ,plev,temp,kmy,q2) 600 600 IMPLICIT NONE 601 601 !.......................................................................
Note: See TracChangeset
for help on using the changeset viewer.