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

Changeset 7657


Ignore:
Timestamp:
2017-02-08T16:04:04+01:00 (8 years ago)
Author:
isabella
Message:

adding more output messages

Location:
branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

    r7656 r7657  
    395395         tbias_i(:,:,:) = 0.0_wp 
    396396         sbias_i(:,:,:) = 0.0_wp 
     397         IF(lwp) WRITE(numout,*) 'gru_pc and grv_pc are set to zero ' 
    397398         gru_pc(:,:)    = 0.0_wp 
    398399         grv_pc(:,:)    = 0.0_wp 
     
    548549 
    549550      IF ( ln_incpc) THEN 
    550        ! not sure if this should be a special case of nn_lat_ramp == 2 
     551       ! not sure if this should be a special case of nn_lat_ramp == 1 
    551552         minlat_bias = 3.0_wp 
    552553         maxlat_bias = 8.0_wp   
     
    814815                   ENDDO 
    815816               ENDIF 
    816  
    817  
    818  
    819817 
    820818            ENDIF 
  • branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r7652 r7657  
    100100      IF ( ln_bias .AND. ln_bias_pc_app ) THEN 
    101101         IF(lwp) THEN  
    102          WRITE(numout,*) " ! store orig density, use pressure corrected density" 
     102         WRITE(numout,*) " ! store orig density, use pressure corrected density using gru_pc and grv_pc" 
    103103         ENDIF 
    104104         z_rhd_st(:,:,:) = rhd(:,:,:)     ! store orig density  
     
    111111      ! 
    112112      SELECT CASE ( nhpg )      ! Hydrostatic pressure gradient computation 
     113         IF(lwp) THEN  
     114         WRITE(numout,*) " computing pressure gradient with nhpg = ",nhpg 
     115         ENDIF 
    113116      CASE (  0 )   ;   CALL hpg_zco    ( kt )      ! z-coordinate 
    114117      CASE (  1 )   ;   CALL hpg_zps    ( kt )      ! z-coordinate plus partial steps (interpolation) 
Note: See TracChangeset for help on using the changeset viewer.