Changeset 547
- Timestamp:
- 2006-10-20T17:45:39+02:00 (18 years ago)
- Location:
- trunk/NEMO
- Files:
-
- 7 edited
-
LIM_SRC/limrst.F90 (modified) (2 diffs)
-
OPA_SRC/DOM/domwri.F90 (modified) (3 diffs)
-
OPA_SRC/IOM/in_out_manager.F90 (modified) (3 diffs)
-
OPA_SRC/IOM/iom.F90 (modified) (2 diffs)
-
OPA_SRC/IOM/iom_def.F90 (modified) (1 diff)
-
OPA_SRC/IOM/iom_rstdimg.F90 (modified) (2 diffs)
-
OPA_SRC/restart.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/limrst.F90
r544 r547 69 69 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_ice" 70 70 IF(lwp) WRITE(numout,*) ' open ice restart.output NetCDF file: '//clname 71 CALL iom_open( clname, numriw, ldwrt = .TRUE., kiolib = jprst dimg)71 CALL iom_open( clname, numriw, ldwrt = .TRUE., kiolib = jprstlib ) 72 72 lrst_ice = .TRUE. 73 73 ENDIF … … 176 176 ENDIF 177 177 178 CALL iom_open ( 'restart_ice_in', numrir, kiolib = jprst dimg)178 CALL iom_open ( 'restart_ice_in', numrir, kiolib = jprstlib ) 179 179 180 180 CALL iom_get( numrir, 'nfice' , zfice ) -
trunk/NEMO/OPA_SRC/DOM/domwri.F90
r544 r547 91 91 CASE ( 1 ) ! create 'mesh_mask.nc' file 92 92 ! ! ============================ 93 IF(lwp) WRITE(numout,*) ' one file in "mesh_mask.nc" ' 94 CALL iom_open( TRIM(clnam0), inum0, ldwrt = .TRUE., kiolib = jprstdimg ) 93 CALL iom_open( TRIM(clnam0), inum0, ldwrt = .TRUE., kiolib = jprstlib ) 95 94 inum2 = inum0 ! put all the informations 96 95 inum3 = inum0 ! in unit inum0 … … 101 100 ! ! 'mask.nc' files 102 101 ! ! ============================ 103 IF(lwp) WRITE(numout,*) ' two files in "mesh.nc" and "mask.nc" ' 104 CALL iom_open( TRIM(clnam1), inum1, ldwrt = .TRUE., kiolib = jprstdimg ) 105 CALL iom_open( TRIM(clnam2), inum2, ldwrt = .TRUE., kiolib = jprstdimg ) 102 CALL iom_open( TRIM(clnam1), inum1, ldwrt = .TRUE., kiolib = jprstlib ) 103 CALL iom_open( TRIM(clnam2), inum2, ldwrt = .TRUE., kiolib = jprstlib ) 106 104 inum3 = inum1 ! put mesh informations 107 105 inum4 = inum1 ! in unit inum1 … … 111 109 ! ! 'mask.nc' files 112 110 ! ! ============================ 113 IF(lwp) WRITE(numout,*) ' three files in "mesh_hgr.nc" , mesh_zgr.nc" and "mask.nc" ' 114 CALL iom_open( TRIM(clnam2), inum2, ldwrt = .TRUE., kiolib = jprstdimg ) 115 CALL iom_open( TRIM(clnam3), inum3, ldwrt = .TRUE., kiolib = jprstdimg ) 116 CALL iom_open( TRIM(clnam4), inum4, ldwrt = .TRUE., kiolib = jprstdimg ) 111 CALL iom_open( TRIM(clnam2), inum2, ldwrt = .TRUE., kiolib = jprstlib ) 112 CALL iom_open( TRIM(clnam3), inum3, ldwrt = .TRUE., kiolib = jprstlib ) 113 CALL iom_open( TRIM(clnam4), inum4, ldwrt = .TRUE., kiolib = jprstlib ) 117 114 118 115 END SELECT -
trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90
r544 r547 25 25 CHARACTER (len=16) :: cexper = "exp0" !: experiment name used for output filename 26 26 LOGICAL :: ln_rstart = .FALSE. !: start from (F) rest or (T) a restart file 27 LOGICAL :: ln_ctl = .FALSE. !: run control for debugging 27 28 INTEGER :: no = 0 !: job number 28 29 INTEGER :: nrstdt = 0 !: control of the time step (0, 1 or 2) … … 32 33 INTEGER :: nleapy = 0 !: Leap year calendar flag (0/1 or 30) 33 34 INTEGER :: ninist = 0 !: initial state output flag (0/1) 34 INTEGER :: nstock = 10 !: restart file frequency 35 INTEGER :: nwrite = 10 !: restart file frequency 35 INTEGER :: nbench = 0 !: benchmark parameter (0/1) 36 36 37 37 !!---------------------------------------------------------------------- 38 38 !! output monitoring 39 39 !!---------------------------------------------------------------------- 40 LOGICAL :: ln_ctl = .FALSE. !: run control for debugging40 INTEGER :: nstock = 10 !: restart file frequency 41 41 INTEGER :: nprint = 0 !: level of print (0 no print) 42 INTEGER :: nwrite = 10 !: restart file frequency 42 43 INTEGER :: nictls = 0 !: Start i indice for the SUM control 43 44 INTEGER :: nictle = 0 !: End i indice for the SUM control … … 47 48 INTEGER :: jsplt = 1 !: number of processors following j 48 49 INTEGER :: ijsplt = 1 !: nb of local domain = nb of processors 49 INTEGER :: nbench = 0 !: benchmark parameter (0/1)50 INTEGER :: nbit_cmp = 0 !: bit comparison mode parameter (0/1)51 50 52 51 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/IOM/iom.F90
r544 r547 57 57 LOGICAL , INTENT(in ), OPTIONAL :: ldwrt ! open in write modeb (default = .FALSE.) 58 58 INTEGER , INTENT(in ), OPTIONAL :: kdom ! Type of domain to be written (default = jpdom_local_noovlap) 59 INTEGER , INTENT(in ), OPTIONAL :: kiolib ! library used to open the file (default = jp ioipsl)59 INTEGER , INTENT(in ), OPTIONAL :: kiolib ! library used to open the file (default = jpnf90) 60 60 61 61 CHARACTER(LEN=100) :: clname ! the name of the file based on cdname [[+clcpu]+clcpu] … … 94 94 ! what library do we use to open the file? 95 95 IF( PRESENT(kiolib) ) THEN ; iolib = kiolib 96 ELSE ; iolib = jp ioipsl96 ELSE ; iolib = jpnf90 97 97 ENDIF 98 98 ! create the file name by added, if needed, TRIM(Agrif_CFixed()) and TRIM(clsuffix) -
trunk/NEMO/OPA_SRC/IOM/iom_def.F90
r544 r547 22 22 INTEGER, PARAMETER, PUBLIC :: jpnf90 = 101 !: Use nf90 library 23 23 INTEGER, PARAMETER, PUBLIC :: jprstdimg = 102 !: Use restart dimgs (fortran direct acces) library 24 #if defined key_dimgout 25 INTEGER, PARAMETER, PUBLIC :: jprstlib = jprstdimg !: restarts io library 26 #else 27 INTEGER, PARAMETER, PUBLIC :: jprstlib = jpnf90 !: restarts io library 28 #endif 24 29 25 30 INTEGER, PARAMETER, PUBLIC :: jp_r8 = 200 !: -
trunk/NEMO/OPA_SRC/IOM/iom_rstdimg.F90
r544 r547 167 167 iom_file(kiomid)%irec = 2 168 168 ! store file informations 169 WRITE( idrst, REC = 1, IOSTAT = ios, ERR = 987) irecl8, kdompar(1,1), kdompar(2,1), jpk169 WRITE( idrst, REC = 1, IOSTAT = ios, ERR = 987 ) irecl8, kdompar(:,1), jpk ! store domain size 170 170 ENDIF 171 171 ENDIF … … 200 200 idrst = iom_file(kiomid)%nfid ! get back the logical unit of the restart file 201 201 ! test if we can write in the file (test with INQUIRE gives alsways YES even with read only files...) 202 READ( idrst, REC = 1, IOSTAT = ios, ERR = 987 ) irecl8 203 WRITE( idrst, REC = 1, IOSTAT = ios ) irecl8 204 ! We can write un the file => we update its header before closing202 READ( idrst, REC = 1, IOSTAT = ios, ERR = 987 ) irecl8, inx, iny, inz 203 WRITE( idrst, REC = 1, IOSTAT = ios ) irecl8, inx, iny, inz 204 ! We can write in the file => we update its header before closing 205 205 IF( ios == 0 ) THEN 206 READ( idrst, REC = 1, IOSTAT = ios, ERR = 987 ) irecl8, inx, iny, inz 206 READ( idrst, REC = 1, IOSTAT = ios, ERR = 987 ) irecl8, inx, iny, inz ! get back domain size 207 207 ivnum = iom_file(kiomid)%nvars 208 208 in0d = 0 ; in2d = 0 ; in3d = 0 -
trunk/NEMO/OPA_SRC/restart.F90
r544 r547 85 85 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart" 86 86 IF(lwp) WRITE(numout,*) ' open ocean restart.output NetCDF file: '//clname 87 CALL iom_open( clname, numrow, ldwrt = .TRUE., kiolib = jprst dimg)87 CALL iom_open( clname, numrow, ldwrt = .TRUE., kiolib = jprstlib ) 88 88 IF( lk_trdmld ) THEN 89 89 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_mld" 90 90 IF(lwp) WRITE(numout,*) ' open ocean restart_mld NetCDF file: '//clname 91 CALL iom_open( clname, nummldw, ldwrt = .TRUE., kiolib = jprst dimg)91 CALL iom_open( clname, nummldw, ldwrt = .TRUE., kiolib = jprstlib ) 92 92 ENDIF 93 93 lrst_oce = .TRUE. … … 232 232 ENDIF 233 233 234 CALL iom_open( 'restart', numror, kiolib = jprst dimg ) ! Open234 CALL iom_open( 'restart', numror, kiolib = jprstlib ) 235 235 236 236 ! Calendar informations
Note: See TracChangeset
for help on using the changeset viewer.
