Changeset 13915
- Timestamp:
- 2020-11-30T11:58:34+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DYN/sshwzv.F90
r13895 r13915 460 460 !!---------------------------------------------------------------------- 461 461 ! 462 IF(lwp) THEN 463 WRITE(numout,*) 464 WRITE(numout,*) 'ssh_init_rst : ssh initialization' 465 WRITE(numout,*) '~~~~~~~~~~~~ ' 466 ENDIF 467 ! 462 468 ! !=============================! 463 469 IF( ln_rstart ) THEN !== Read the restart file ==! … … 465 471 ! 466 472 ! !* Read ssh at Kmm 467 IF(lwp) WRITE(numout,*) ' Kmm sea surface height read in the restart file' 473 IF(lwp) WRITE(numout,*) 474 IF(lwp) WRITE(numout,*) ' Kmm sea surface height read in the restart file' 468 475 CALL iom_get( numror, jpdom_auto, 'sshn' , ssh(:,:,Kmm), ldxios = lrxios ) 469 476 ! 470 477 IF( l_1st_euler ) THEN !* Euler at first time-step 471 IF(lwp) WRITE(numout,*) ' Euler first time step : ssh(Kbb) = ssh(Kmm)' 478 IF(lwp) WRITE(numout,*) 479 IF(lwp) WRITE(numout,*) ' Euler first time step : ssh(Kbb) = ssh(Kmm)' 472 480 ssh(:,:,Kbb) = ssh(:,:,Kmm) 473 481 ! 474 482 ELSE !* read ssh at Kbb 475 IF(lwp) WRITE(numout,*) ' Kbb sea surface height read in the restart file' 483 IF(lwp) WRITE(numout,*) 484 IF(lwp) WRITE(numout,*) ' Kbb sea surface height read in the restart file' 476 485 CALL iom_get( numror, jpdom_auto, 'sshb', ssh(:,:,Kbb), ldxios = lrxios ) 477 486 ENDIF … … 479 488 ELSE !== Initialize at "rest" ==! 480 489 ! !============================! 490 ! 491 IF(lwp) WRITE(numout,*) 492 IF(lwp) WRITE(numout,*) ' initialization at rest' 481 493 ! 482 494 IF( ll_wd ) THEN !* wet and dry -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/LBC/mppini.F90
r13305 r13915 222 222 ! then we calculate them here now that we have our communicator size 223 223 IF(lwp) THEN 224 WRITE(numout,*) 224 225 WRITE(numout,*) 'mpp_init:' 225 226 WRITE(numout,*) '~~~~~~~~ ' 226 WRITE(numout,*)227 227 ENDIF 228 228 IF( jpni < 1 .OR. jpnj < 1 ) THEN -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/nemogcm.F90
r13895 r13915 328 328 IF(lwp) THEN ! open listing units 329 329 ! 330 IF( .NOT. 330 IF( .NOT.lwm ) & ! alreay opened for narea == 1 331 331 & CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE., narea ) 332 332 ! … … 335 335 WRITE(numout,*) ' NEMO team' 336 336 WRITE(numout,*) ' Ocean General Circulation Model' 337 WRITE(numout,*) ' NEMO version 4.0 (20 19) '337 WRITE(numout,*) ' NEMO version 4.0 (2020) ' 338 338 WRITE(numout,*) 339 339 WRITE(numout,*) " ._ ._ ._ ._ ._ " … … 351 351 WRITE(numout,*) " ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 352 352 WRITE(numout,*) 353 354 ! Print the working precision to ocean.output 355 IF (wp == dp) THEN 356 WRITE(numout,*) "Working precision = double-precision" 357 ELSE 358 WRITE(numout,*) "Working precision = single-precision" 353 ! 354 WRITE(numout,cform_aaa) ! Flag AAAAAAA 355 ! 356 ! ! Control print of the working precision 357 WRITE(numout,*) 358 IF( wp == dp ) THEN ; WRITE(numout,*) "par_kind : wp = Working precision = dp = double-precision" 359 ELSE ; WRITE(numout,*) "par_kind : wp = Working precision = sp = single-precision" 359 360 ENDIF 360 WRITE(numout,*) 361 ! 362 WRITE(numout,cform_aaa) ! Flag AAAAAAA 361 WRITE(numout,*) "~~~~~~~~ ****************" 362 WRITE(numout,*) 363 363 ! 364 364 ENDIF … … 401 401 ! !-------------------------------! 402 402 403 CALL nemo_ctl ! Control prints 403 CALL nemo_ctl ! Control prints of namctl and namcfg 404 404 ! 405 405 ! ! General initialization … … 415 415 CALL Agrif_Declare_Var_ini ! " " " " " DOM 416 416 #endif 417 CALL dom_init( Nbb, Nnn, Naa, "OCE") ! Domain418 IF( ln_crs ) CALL crs_init( Nnn )! coarsened grid: domain initialization417 CALL dom_init( Nbb, Nnn, Naa, "OCE") ! Domain 418 IF( ln_crs ) CALL crs_init( Nnn ) ! coarsened grid: domain initialization 419 419 IF( sn_cfctl%l_prtctl ) & 420 420 & CALL prt_ctl_init ! Print control … … 500 500 IF( lk_asminc ) CALL asm_inc_init( Nbb, Nnn, Nrhs ) ! Initialize assimilation increments 501 501 ! 502 !!st move iom_close(numror) at the end of nemo_init ==> KO503 !!st !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>504 !!st ! File manipulation at the end of the first time step505 !!st !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<506 !!st CALL iom_close( numror ) ! close input ocean restart file507 !!st IF(lwm) CALL FLUSH ( numond ) ! flush output namelist oce508 !!st IF(lwm .AND. numoni /= -1 ) CALL FLUSH ( numoni ) ! flush output namelist ice (if exist)509 !!st end510 511 502 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA 512 503 ! -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/step.F90
r13895 r13915 331 331 IF( ln_diaobs .AND. nstop == 0 ) CALL dia_obs( kstp, Nnn ) ! obs-minus-model (assimilation) diags (after dynamics update) 332 332 333 !!st move iom_close(numror) at the end of nemo_init ==> KO334 333 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 335 334 ! File manipulation at the end of the first time step … … 340 339 IF(lwm .AND. numoni /= -1 ) CALL FLUSH ( numoni ) ! flush output namelist ice (if exist) 341 340 ENDIF 342 !!st end343 341 344 342 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Note: See TracChangeset
for help on using the changeset viewer.