Changeset 4368 for LMDZ6/branches/Ocean_skin/libf/dyn3d/dynredem.F90
- Timestamp:
- Dec 6, 2022, 12:01:16 AM (19 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/dyn3d/dynredem.F90
r4013 r4368 7 7 USE IOIPSL 8 8 #endif 9 USE infotrac 9 USE strings_mod, ONLY: maxlen 10 USE infotrac, ONLY: nqtot, tracers 10 11 USE netcdf, ONLY: NF90_CREATE, NF90_DEF_DIM, NF90_INQ_VARID, NF90_GLOBAL, & 11 12 NF90_CLOSE, NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER, & 12 13 NF90_64BIT_OFFSET 13 14 USE dynredem_mod, ONLY: cre_var, put_var1, put_var2, err, modname, fil 14 USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff, & 15 nivsig,nivsigs 15 USE comvert_mod, ONLY: ap, bp, presnivs, pa, preff, nivsig, nivsigs 16 16 USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad 17 17 USE logic_mod, ONLY: fxyhypb, ysinus … … 34 34 !=============================================================================== 35 35 ! Local variables: 36 INTEGER :: iq , l36 INTEGER :: iq 37 37 INTEGER, PARAMETER :: length=100 38 38 REAL :: tab_cntrl(length) !--- RUN PARAMETERS TABLE 39 39 ! For NetCDF: 40 CHARACTER(LEN= 30) :: unites40 CHARACTER(LEN=maxlen) :: unites 41 41 INTEGER :: indexID 42 42 INTEGER :: rlonuID, rlonvID, rlatuID, rlatvID 43 INTEGER :: sID, sigID, nID, vID,timID43 INTEGER :: sID, sigID, nID, timID 44 44 INTEGER :: yyears0, jjour0, mmois0 45 REAL :: z an0, zjulian, hours45 REAL :: zjulian, hours 46 46 !=============================================================================== 47 47 modname='dynredem0'; fil=fichnom … … 138 138 139 139 !--- Define fields saved later 140 WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')") ,&140 WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')") & 141 141 yyears0,mmois0,jjour0 142 142 CALL cre_var(nid,"temps","Temps de simulation",[timID],unites) … … 145 145 CALL cre_var(nid,"teta" ,"Temperature",[rlonvID,rlatuID,sID,timID]) 146 146 DO iq=1,nqtot 147 CALL cre_var(nid,t name(iq),ttext(iq),[rlonvID,rlatuID,sID,timID])147 CALL cre_var(nid,tracers(iq)%name,tracers(iq)%longName,[rlonvID,rlatuID,sID,timID]) 148 148 END DO 149 149 CALL cre_var(nid,"masse","Masse d air" ,[rlonvID,rlatuID,sID,timID]) … … 166 166 ! Purpose: Write the NetCDF restart file (append). 167 167 !------------------------------------------------------------------------------- 168 USE infotrac 168 USE strings_mod, ONLY: maxlen 169 USE infotrac, ONLY: nqtot, tracers, types_trac 169 170 USE control_mod 170 171 USE netcdf, ONLY: NF90_OPEN, NF90_NOWRITE, NF90_GET_VAR, NF90_INQ_VARID, & … … 192 193 !=============================================================================== 193 194 ! Local variables: 194 INTEGER :: l,iq, nid, vID, ierr, nid_trac, vID_trac195 INTEGER :: iq, nid, vID, ierr, nid_trac, vID_trac 195 196 INTEGER, SAVE :: nb=0 196 197 INTEGER, PARAMETER :: length=100 197 198 REAL :: tab_cntrl(length) ! tableau des parametres du run 198 CHARACTER(LEN= 256) :: var, dum199 CHARACTER(LEN=maxlen) :: var, dum 199 200 LOGICAL :: lread_inca 200 201 !=============================================================================== … … 227 228 !--- Tracers in file "start_trac.nc" (added by Anne) 228 229 lread_inca=.FALSE.; fil="start_trac.nc" 229 IF( type_trac=='inca' .OR. type_trac=='inco') INQUIRE(FILE=fil,EXIST=lread_inca)230 IF(ANY(types_trac=='inca') .OR. ANY(types_trac=='inco')) INQUIRE(FILE=fil,EXIST=lread_inca) 230 231 IF(lread_inca) CALL err(NF90_OPEN(fil,NF90_NOWRITE,nid_trac),"open") 231 232 232 233 !--- Save tracers 233 DO iq=1,nqtot; var= tname(iq); ierr=-1234 DO iq=1,nqtot; var=TRIM(tracers(iq)%name); ierr=-1 234 235 IF(lread_inca) THEN !--- Possibly read from "start_trac.nc" 235 236 fil="start_trac.nc"
Note: See TracChangeset
for help on using the changeset viewer.