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 10892 – NEMO

Changeset 10892


Ignore:
Timestamp:
2019-04-25T11:22:51+02:00 (5 years ago)
Author:
andmirek
Message:

GMED 450 reviewer comments

Location:
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r10774 r10892  
    801801         CALL histend( nid_W, snc4chunks=snc4set ) 
    802802 
    803          IF(lwp) WRITE(numout,*) 
    804          IF(lwp) WRITE(numout,*) 'End of NetCDF Initialization' 
    805          IF(lwp .AND. lflush) CALL flush(numout) 
     803         IF(lwp) THEN 
     804            WRITE(numout,*) 
     805            WRITE(numout,*) 'End of NetCDF Initialization' 
     806            IF(lflush) CALL flush(numout) 
     807         ENDIF 
    806808 
    807809      ENDIF 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/FLO/flodom.F90

    r10774 r10892  
    151151      DO jfl = kfl_start,kfl_end 
    152152         READ(inum,*) flxx(jfl),flyy(jfl),flzz(jfl), nisobfl(jfl),ngrpfl(jfl),itrash 
    153          if(lwp)write(numout,*)'read:',jfl,flxx(jfl),flyy(jfl),flzz(jfl), nisobfl(jfl),ngrpfl(jfl),itrash 
    154          IF(lwp .AND. lflush) CALL flush(numout) 
     153         IF (lwp) THEN 
     154            write(numout,*)'read:',jfl,flxx(jfl),flyy(jfl),flzz(jfl), nisobfl(jfl),ngrpfl(jfl),itrash 
     155            IF(lflush) CALL flush(numout) 
     156         ENDIF 
    155157      END DO 
    156158      CLOSE(inum) 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbdia.F90

    r10753 r10892  
    498498      IF ( PRESENT(kbergs) ) THEN 
    499499         IF(numicb.NE.-1) &  
    500             &        WRITE(numicb,100) cd_budgetstr // ' state:',                        & 
     500                     WRITE(numicb,100) cd_budgetstr // ' state:',                        & 
    501501                           cd_startstr  // ' start',  pstartval,         cd_budgetunits, & 
    502502                           cd_endstr    // ' end',    pendval,           cd_budgetunits, & 
    … …  
    505505      ELSE 
    506506         IF(numicb.NE.-1) & 
    507             &        WRITE(numicb,100) cd_budgetstr // ' state:',                       & 
     507                     WRITE(numicb,100) cd_budgetstr // ' state:',                       & 
    508508                           cd_startstr  // ' start', pstartval,         cd_budgetunits, & 
    509509                           cd_endstr    // ' end',   pendval,           cd_budgetunits, & 
    … …  
    522522      ! 
    523523      IF(numicb.NE.-1) & 
    524          &        WRITE(numicb,200) cd_budgetstr // ' check:',     & 
     524                  WRITE(numicb,200) cd_budgetstr // ' check:',     & 
    525525                        cd_startstr,    pstartval, cd_budgetunits, & 
    526526                        cd_endstr,      pendval,   cd_budgetunits, & 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r10774 r10892  
    112112               IF(nprint > 1) THEN 
    113113                  IF ( snc4set%luse )      WRITE(numout,*) '             opened for NetCDF4 chunking and compression' 
    114                   IF( kt == nitrst - 1) THEN   ;   WRITE(numout,*) '             kt = nitrst - 1 = ', kt 
    115                   ELSE                          ;   WRITE(numout,*) '             kt = '             , kt 
     114                  IF( kt == nitrst - 1) THEN 
     115                     WRITE(numout,*) '             kt = nitrst - 1 = ', kt 
     116                  ELSE                           
     117                     WRITE(numout,*) '             kt = '             , kt 
    116118                  ENDIF 
    117119               ENDIF 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90

    r10774 r10892  
    106106 
    107107 
    108          IF(lwp) WRITE(numout,*) 
    109          IF(lwp) WRITE(numout,*) 'ldf_dyn_smag : 3D lateral eddy viscosity coefficient' 
    110          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
    111          IF(lwp .AND. lflush) CALL flush(numout) 
     108         IF(lwp) THEN 
     109            WRITE(numout,*) 
     110            WRITE(numout,*) 'ldf_dyn_smag : 3D lateral eddy viscosity coefficient' 
     111            WRITE(numout,*) '~~~~~~~~~~~' 
     112            IF(lflush) CALL flush(numout) 
     113         ENDIF 
    112114 
    113115      ENDIF 
    … …  
    173175 
    174176         ENDDO ! jpk 
    175             ahm1(:,:,jpk) = ahm1(:,:,jpkm1) 
    176             ahm2(:,:,jpk) = ahm2(:,:,jpkm1) 
    177             IF(lwp.and.kt==nit000) THEN 
    178                WRITE(numout,'(36x," ahm ", 7x)')  
    179                IF(lflush) CALL flush(numout) 
    180             ENDIF 
     177 
     178         ahm1(:,:,jpk) = ahm1(:,:,jpkm1) 
     179         ahm2(:,:,jpk) = ahm2(:,:,jpkm1) 
     180 
     181         IF(lwp.and.kt==nit000) THEN 
     182            WRITE(numout,'(36x," ahm ", 7x)')  
     183            IF(lflush) CALL flush(numout) 
     184         ENDIF 
     185 
    181186         IF(lwp.and.kt==nit000) THEN 
    182187            DO jk = 1, jpk 
    … …  
    185190            IF(lflush) CALL flush(numout) 
    186191         ENDIF 
     192 
    187193      CALL lbc_lnk( ahm1, 'T', 1. )   ! Lateral boundary conditions on ( ahtt ) 
    188194      CALL lbc_lnk( ahm2, 'F', 1. )   ! Lateral boundary conditions on ( ahtt ) 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r10774 r10892  
    357357#endif 
    358358                  IF( ln_ctl ) THEN 
    359                     WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 
    360                     IF(lflush) CALL flush(numout) 
     359                     WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 
     360                     IF(lflush) CALL flush(numout) 
    361361                  ENDIF 
    362362 
    … …  
    402402                  ENDIF 
    403403                  IF(ln_ctl) THEN 
    404                     IF(srcv(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 
    405                     IF(srcv(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 
    406                     IF(lflush) CALL flush(numout) 
     404                     IF(srcv(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 
     405                     IF(srcv(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 
     406                     IF(lflush) CALL flush(numout) 
    407407                  ENDIF 
    408408               END DO 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r10774 r10892  
    785785                     sd(ju)%rotn(jn) = .TRUE.               ! vector was rotated  
    786786                     IF( lwp .AND. kt == nit000 )   THEN 
    787                        WRITE(numout,*)   & 
     787                        WRITE(numout,*)   & 
    788788                        &   'fld_read: vector pair ('//TRIM(sd(ju)%clvar)//', '//TRIM(sd(iv)%clvar)//') rotated on to model grid' 
    789789                        IF(lflush) CALL flush(numout) 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r10775 r10892  
    14751475            greenland_icesheet_timelapsed = 0.0_wp        
    14761476         ENDIF 
    1477          IF(lwp .AND. ll_wrtstp) WRITE(numout,*) 'Greenland icesheet mass (kg) read in is ', zgreenland_icesheet_mass_in 
    1478          IF(lwp .AND. ll_wrtstp) WRITE(numout,*) 'Greenland icesheet mass (kg) used is    ', greenland_icesheet_mass 
    1479          IF(lwp .AND. ll_wrtstp) WRITE(numout,*) 'Greenland icesheet mass rate of change (kg/s) is ', greenland_icesheet_mass_rate_of_change 
    1480          IF(lwp .AND. ll_wrtstp) WRITE(numout,*) 'Greenland icesheet seconds lapsed since last change is ', greenland_icesheet_timelapsed 
    1481          IF(lwp .AND. lflush .AND. ll_wrtstp) CALL flush(numout) 
     1477         IF(lwp .AND. ll_wrtstp) THEN 
     1478            WRITE(numout,*) 'Greenland icesheet mass (kg) read in is ', zgreenland_icesheet_mass_in 
     1479            WRITE(numout,*) 'Greenland icesheet mass (kg) used is    ', greenland_icesheet_mass 
     1480            WRITE(numout,*) 'Greenland icesheet mass rate of change (kg/s) is ', greenland_icesheet_mass_rate_of_change 
     1481            WRITE(numout,*) 'Greenland icesheet seconds lapsed since last change is ', greenland_icesheet_timelapsed 
     1482            IF(lflush) CALL flush(numout) 
     1483         ENDIF 
    14821484      ELSE IF ( nn_coupled_iceshelf_fluxes == 2 ) THEN 
    14831485         greenland_icesheet_mass_rate_of_change = rn_greenland_total_fw_flux 
    … …  
    15231525            antarctica_icesheet_timelapsed = 0.0_wp        
    15241526         ENDIF 
    1525          IF(lwp .AND. ll_wrtstp) WRITE(numout,*) 'Antarctica icesheet mass (kg) read in is ', zantarctica_icesheet_mass_in 
    1526          IF(lwp .AND. ll_wrtstp) WRITE(numout,*) 'Antarctica icesheet mass (kg) used is    ', antarctica_icesheet_mass 
    1527          IF(lwp .AND. ll_wrtstp) WRITE(numout,*) 'Antarctica icesheet mass rate of change (kg/s) is ', antarctica_icesheet_mass_rate_of_change 
    1528          IF(lwp .AND. ll_wrtstp) WRITE(numout,*) 'Antarctica icesheet seconds lapsed since last change is ', antarctica_icesheet_timelapsed 
    1529          IF(lwp .AND. lflush .AND. ll_wrtstp) CALL flush(numout) 
     1527         IF(lwp .AND. ll_wrtstp) THEN 
     1528            WRITE(numout,*) 'Antarctica icesheet mass (kg) read in is ', zantarctica_icesheet_mass_in 
     1529            WRITE(numout,*) 'Antarctica icesheet mass (kg) used is    ', antarctica_icesheet_mass 
     1530            WRITE(numout,*) 'Antarctica icesheet mass rate of change (kg/s) is ', antarctica_icesheet_mass_rate_of_change 
     1531            WRITE(numout,*) 'Antarctica icesheet seconds lapsed since last change is ', antarctica_icesheet_timelapsed 
     1532            IF(lflush) CALL flush(numout) 
     1533         ENDIF 
    15301534      ELSE IF ( nn_coupled_iceshelf_fluxes == 2 ) THEN 
    15311535         antarctica_icesheet_mass_rate_of_change = rn_antarctica_total_fw_flux 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r10774 r10892  
    183183      ! 
    184184      IF(lwp .AND. nprint>1) THEN 
    185         WRITE(numout,*)'cice_sbc_init' 
    186         IF(lflush) CALL flush(numout) 
     185         WRITE(numout,*)'cice_sbc_init' 
     186         IF(lflush) CALL flush(numout) 
    187187      ENDIF 
    188188 
    … …  
    346346      IF( kt == nit000 )  THEN 
    347347         IF(lwp .AND. nprint>1) THEN 
    348            WRITE(numout,*)'cice_sbc_in' 
    349            IF(lflush) CALL flush(numout) 
     348            WRITE(numout,*)'cice_sbc_in' 
     349            IF(lflush) CALL flush(numout) 
    350350         ENDIF 
    351351      ENDIF 
    … …  
    590590      IF( kt == nit000 )  THEN 
    591591         IF(lwp .AND. nprint>1) THEN 
    592            WRITE(numout,*)'cice_sbc_out' 
    593            IF(lflush) CALL flush(numout) 
     592            WRITE(numout,*)'cice_sbc_out' 
     593            IF(lflush) CALL flush(numout) 
    594594         ENDIF 
    595595      ENDIF 
    … …  
    830830 
    831831      IF(lwp .AND. nprint > 1) THEN 
    832         WRITE(numout,*)'cice_sbc_final' 
    833         IF(lflush) CALL flush(numout) 
     832         WRITE(numout,*)'cice_sbc_final' 
     833         IF(lflush) CALL flush(numout) 
    834834      ENDIF 
    835835 

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r10774 r10892  
    297297      nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
    298298      lflush    = ln_flush          ! convert namelist variable to model variable 
    299       !do it here because output.namelist.dyn is opened before nprint was set earlier 
    300299      ! 
    301300      !                             !--------------------------------------------! 
Note: See TracChangeset for help on using the changeset viewer.