New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13915 for NEMO – NEMO

Changeset 13915 for NEMO


Ignore:
Timestamp:
2020-11-30T11:58:34+01:00 (3 years ago)
Author:
techene
Message:

#2574 cosmetics, cleanning and proper display of ocean.output (sette OK)

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  
    460460      !!---------------------------------------------------------------------- 
    461461      ! 
     462      IF(lwp) THEN 
     463         WRITE(numout,*) 
     464         WRITE(numout,*) 'ssh_init_rst : ssh initialization' 
     465         WRITE(numout,*) '~~~~~~~~~~~~ ' 
     466      ENDIF 
     467      ! 
    462468      !                            !=============================! 
    463469      IF( ln_rstart ) THEN         !==  Read the restart file  ==! 
     
    465471         ! 
    466472         !                                     !*  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' 
    468475         CALL iom_get( numror, jpdom_auto, 'sshn'   , ssh(:,:,Kmm), ldxios = lrxios ) 
    469476         ! 
    470477         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)' 
    472480            ssh(:,:,Kbb) = ssh(:,:,Kmm) 
    473481            ! 
    474482         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' 
    476485            CALL iom_get( numror, jpdom_auto, 'sshb', ssh(:,:,Kbb), ldxios = lrxios ) 
    477486         ENDIF 
     
    479488      ELSE                         !==  Initialize at "rest"  ==! 
    480489         !                         !============================! 
     490         ! 
     491         IF(lwp) WRITE(numout,*) 
     492         IF(lwp) WRITE(numout,*)    '      initialization at rest' 
    481493         ! 
    482494         IF( ll_wd ) THEN                      !* wet and dry  
  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/LBC/mppini.F90

    r13305 r13915  
    222222      ! then we calculate them here now that we have our communicator size 
    223223      IF(lwp) THEN 
     224         WRITE(numout,*) 
    224225         WRITE(numout,*) 'mpp_init:' 
    225226         WRITE(numout,*) '~~~~~~~~ ' 
    226          WRITE(numout,*) 
    227227      ENDIF 
    228228      IF( jpni < 1 .OR. jpnj < 1 ) THEN 
  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/nemogcm.F90

    r13895 r13915  
    328328      IF(lwp) THEN                      ! open listing units 
    329329         ! 
    330          IF( .NOT. lwm )   &            ! alreay opened for narea == 1 
     330         IF( .NOT.lwm )   &            ! alreay opened for narea == 1 
    331331            &            CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE., narea ) 
    332332         ! 
     
    335335         WRITE(numout,*) '                       NEMO team' 
    336336         WRITE(numout,*) '            Ocean General Circulation Model' 
    337          WRITE(numout,*) '                NEMO version 4.0  (2019) ' 
     337         WRITE(numout,*) '                NEMO version 4.0  (2020) ' 
    338338         WRITE(numout,*) 
    339339         WRITE(numout,*) "           ._      ._      ._      ._      ._    " 
     
    351351         WRITE(numout,*) "     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 
    352352         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" 
    359360         ENDIF 
    360          WRITE(numout,*) 
    361          ! 
    362          WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
     361                                   WRITE(numout,*) "~~~~~~~~                                 ****************" 
     362                                   WRITE(numout,*) 
    363363         ! 
    364364      ENDIF 
     
    401401      !                             !-------------------------------! 
    402402 
    403       CALL nemo_ctl                          ! Control prints 
     403      CALL nemo_ctl                          ! Control prints of namctl and namcfg 
    404404      ! 
    405405      !                                      ! General initialization 
     
    415415     CALL Agrif_Declare_Var_ini   !  "      "   "   "      "  DOM 
    416416#endif 
    417                            CALL     dom_init( Nbb, Nnn, Naa, "OCE") ! Domain 
    418       IF( ln_crs       )   CALL     crs_init(      Nnn )       ! coarsened grid: domain initialization  
     417                           CALL     dom_init( Nbb, Nnn, Naa, "OCE")   ! Domain 
     418      IF( ln_crs       )   CALL     crs_init(      Nnn            )   ! coarsened grid: domain initialization  
    419419      IF( sn_cfctl%l_prtctl )   & 
    420420         &                 CALL prt_ctl_init        ! Print control 
     
    500500      IF( lk_asminc    )   CALL asm_inc_init( Nbb, Nnn, Nrhs )   ! Initialize assimilation increments 
    501501      ! 
    502 !!st move iom_close(numror) at the end of nemo_init ==> KO 
    503 !!st      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    504 !!st      ! File manipulation at the end of the first time step 
    505 !!st      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                          
    506 !!st                                        CALL iom_close( numror )   ! close input  ocean restart file 
    507 !!st         IF(lwm)                        CALL FLUSH    ( numond )   ! flush output namelist oce 
    508 !!st         IF(lwm .AND. numoni /= -1 )    CALL FLUSH    ( numoni )   ! flush output namelist ice (if exist) 
    509 !!st end 
    510  
    511502      IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
    512503      ! 
  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/step.F90

    r13895 r13915  
    331331      IF( ln_diaobs .AND. nstop == 0 )  CALL dia_obs( kstp, Nnn )  ! obs-minus-model (assimilation) diags (after dynamics update) 
    332332 
    333 !!st move iom_close(numror) at the end of nemo_init ==> KO 
    334333      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    335334      ! File manipulation at the end of the first time step 
     
    340339         IF(lwm .AND. numoni /= -1 )    CALL FLUSH    ( numoni )   ! flush output namelist ice (if exist) 
    341340      ENDIF 
    342 !!st end 
    343341 
    344342      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Note: See TracChangeset for help on using the changeset viewer.