- Timestamp:
- Feb 22, 2021, 12:44:07 PM (4 years ago)
- Location:
- LMDZ6/branches/LMDZ-tracers
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/guide_loc_mod.F90
r3547 r3851 27 27 LOGICAL, PRIVATE, SAVE :: invert_p,invert_y,ini_anal 28 28 LOGICAL, PRIVATE, SAVE :: guide_2D,guide_sav,guide_modele 29 !FC 30 LOGICAL, PRIVATE, SAVE :: convert_Pa 29 31 30 32 REAL, PRIVATE, SAVE :: tau_min_u,tau_max_u … … 152 154 guide_plevs=1 153 155 ENDIF 156 !FC 157 CALL getpar('convert_Pa',.true.,convert_Pa,'Convert Pressure levels in Pa') 154 158 ! Fin raccord 155 159 CALL getpar('ini_anal',.false.,ini_anal,'Etat initial = analyse') … … 1695 1699 status=NF_GET_VARA_REAL(ncidpl,varidpl,1,nlevnc,apnc) 1696 1700 #endif 1697 apnc=apnc*100.! conversion en Pascals 1701 !FC Pour les corrections la pression est deja en Pascals on commente la ligne ci-dessous 1702 IF(convert_Pa) apnc=apnc*100.! conversion en Pascals 1698 1703 bpnc(:)=0. 1699 1704 ENDIF … … 2193 2198 ! ---------------------------------------------- 2194 2199 ! Ouverture du fichier 2195 ierr=NF_CREATE("guide_ins.nc", NF_CLOBBER,nid)2200 ierr=NF_CREATE("guide_ins.nc",IOR(NF_CLOBBER,NF_64BIT_OFFSET),nid) 2196 2201 ! Definition des dimensions 2197 2202 ierr=NF_DEF_DIM(nid,"LONU",iip1,id_lonu)
Note: See TracChangeset
for help on using the changeset viewer.