Changeset 14705


Ignore:
Timestamp:
2021-04-13T18:13:49+02:00 (4 weeks ago)
Author:
agn
Message:

comment out diagnostics everywhere where lcoup=T

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90

    r14704 r14705  
    18781878                    END IF 
    18791879#endif 
    1880 #ifdef key_osm_debug 
    1881                     WRITE(narea+400,'(4(a,i7))') ' lcoup = T at ji=',ji,' jj= ',jj,' jig= ', mig(ji), ' jjg= ', mjg(jj) 
    1882                     WRITE(narea+400,'(3(a,g11.3))') '1st pz_b= ', pz_b, 'pb_coup', pb_coup(ji,jj), ' pc_coup_vis', pc_coup_vis(ji,jj) 
    1883                     FLUSH(narea+400) 
    1884 #endif 
     1880! #ifdef key_osm_debug 
     1881!                     WRITE(narea+400,'(4(a,i7))') ' lcoup = T at ji=',ji,' jj= ',jj,' jig= ', mig(ji), ' jjg= ', mjg(jj) 
     1882!                     WRITE(narea+400,'(3(a,g11.3))') '1st pz_b= ', pz_b, 'pb_coup', pb_coup(ji,jj), ' pc_coup_vis', pc_coup_vis(ji,jj) 
     1883!                     FLUSH(narea+400) 
     1884! #endif 
    18851885                    pz_b = -zhml(ji,jj) + gdepw_n(ji,jj,mbkt(ji,jj)+1)  ! ag 19/03  
    18861886                    pbeta_v_sc(ji,jj) = 1.0 - 2.0 * ( pb_coup(ji,jj) * pz_b + pc_coup_vis(ji,jj) * pz_b**2 ) / pvisml_sc(ji,jj)  ! ag 19/03 
     
    18931893                    END IF 
    18941894#endif 
    1895 #ifdef key_osm_debug 
    1896                     WRITE(narea+400,'(3(a,g11.3))') '2nd pz_b= ', pz_b,' pc_coup_dif', pc_coup_dif(ji,jj) 
    1897                     FLUSH(narea+400) 
    1898 #endif 
     1895! #ifdef key_osm_debug 
     1896!                     WRITE(narea+400,'(3(a,g11.3))') '2nd pz_b= ', pz_b,' pc_coup_dif', pc_coup_dif(ji,jj) 
     1897!                     FLUSH(narea+400) 
     1898! #endif 
    18991899                  ELSE     ! ag 19/03 
    19001900                    pbeta_d_sc(ji,jj) = 1.0 - ( ( pdifpyc_n_sc(ji,jj) + 1.4 * pdifpyc_s_sc(ji,jj) ) / ( pdifml_sc(ji,jj) + epsln ) )**p2third     ! ag 19/03 
Note: See TracChangeset for help on using the changeset viewer.