Changeset 648 for trunk/NEMO
- Timestamp:
- 2007-04-12T16:00:53+02:00 (17 years ago)
- Location:
- trunk/NEMO
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/limdia.F90
r624 r648 175 175 !!------------------------------------------------------------------- 176 176 CHARACTER(len=jpchinf) :: titinf 177 CHARACTER(len=50) :: clname 177 178 INTEGER :: jv ! dummy loop indice 178 179 INTEGER :: ntot , ndeb , irecl … … 240 241 241 242 ! opening "ice_evolu" file 243 clname = 'ice_evolu' 242 244 irecl = ( jpchinf + 1 ) * nvinfo 243 CALL ctlopn( numevo_ice, 'ice_evolu', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', &245 CALL ctlopn( numevo_ice, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 244 246 & irecl, numout, .TRUE., 1 ) 245 247 -
trunk/NEMO/OPA_SRC/DIA/diafwb.F90
r623 r648 67 67 68 68 !! * Local declarations 69 CHARACTER (len=32) :: clname 69 70 INTEGER :: inum ! temporary logical unit 70 71 INTEGER :: ji, jj, jk, jt ! dummy loop indices … … 386 387 ! -------------------------- 387 388 388 IF ( kt == nitend ) THEN 389 390 CALL ctlopn( inum, 'STAIT.dat', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 389 IF ( kt == nitend .AND. cp_cfg == "orca" ) THEN 390 391 clname = 'STRAIT.dat' 392 CALL ctlopn( inum, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 391 393 & 1, numout, .TRUE., 1 ) 392 394 WRITE(inum,*) -
trunk/NEMO/OPA_SRC/DIA/diawri.F90
r632 r648 557 557 558 558 !! * Local declarations 559 CHARACTER (len=32) :: clname 559 560 CHARACTER (len=40) :: clop 560 561 INTEGER :: & … … 567 568 !!---------------------------------------------------------------------- 568 569 569 IF(lwp) WRITE(numout,*)570 IF(lwp) WRITE(numout,*) 'dia_wri_state : single instantaneous ocean state'571 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~ and forcing fields file created '572 IF(lwp) WRITE(numout,*) ' and named :', cdfile_name, '.nc'573 574 570 ! 0. Initialisation 575 571 ! ----------------- 576 572 577 ! Define frequency of output and means 573 ! Define name, frequency of output and means 574 clname = cdfile_name 575 #if defined key_agrif 576 if ( .NOT. Agrif_Root() ) clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 577 #endif 578 578 zdt = rdt 579 579 zsto = rdt … … 582 582 zmax = ( nitend - nit000 + 1 ) * zdt 583 583 584 IF(lwp) WRITE(numout,*) 585 IF(lwp) WRITE(numout,*) 'dia_wri_state : single instantaneous ocean state' 586 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~ and forcing fields file created ' 587 IF(lwp) WRITE(numout,*) ' and named :', clname, '.nc' 588 589 584 590 ! 1. Define NETCDF files and fields at beginning of first time step 585 591 ! ----------------------------------------------------------------- … … 587 593 ! Compute julian date from starting date of the run 588 594 CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian ) ! time axis 589 CALL histbeg( c dfile_name, jpi, glamt, jpj, gphit, &595 CALL histbeg( clname, jpi, glamt, jpj, gphit, & 590 596 1, jpi, 1, jpj, 0, zjulian, zdt, nh_i, id_i, domain_id=nidom ) ! Horizontal grid : glamt and gphit 591 597 CALL histvert( id_i, "deptht", "Vertical T levels", & ! Vertical grid : gdept -
trunk/NEMO/OPA_SRC/mppini.F90
r624 r648 130 130 !!---------------------------------------------------------------------- 131 131 !! * Local variables 132 CHARACTER (len=32) :: clname 132 133 INTEGER :: ji, jj, jn ! dummy loop indices 133 134 INTEGER :: & … … 345 346 ! Save processor layout in layout.dat file 346 347 IF (lwp) THEN 347 CALL ctlopn( inum, 'layout.dat', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 348 clname = 'layout.dat' 349 CALL ctlopn( inum, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 348 350 & 1, numout, .FALSE., 1 ) 349 351 WRITE(inum,'(a)') ' jpnij jpi jpj jpk jpiglo jpjglo' -
trunk/NEMO/OPA_SRC/mppini_2.h90
r624 r648 43 43 44 44 !! Local variables 45 CHARACTER (len=32) :: clname 45 46 INTEGER :: ji, jj, jn, jproc, jarea ! dummy loop indices 46 47 INTEGER :: inum ! temporary logical unit … … 466 467 ! Save processor layout in ascii file 467 468 IF (lwp) THEN 468 CALL ctlopn( inum, 'layout.dat', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 469 clname = 'layout.dat' 470 CALL ctlopn( inum, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 469 471 & 1, numout, .FALSE., 1 ) 470 472 WRITE(inum,'(6i8)') jpnij,jpi,jpj,jpk,jpiglo,jpjglo
Note: See TracChangeset
for help on using the changeset viewer.