Changeset 7652


Ignore:
Timestamp:
2017-02-06T17:14:30+01:00 (4 years ago)
Author:
isabella
Message:

adding output messages to understand what model does

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

    r7553 r7652  
    317317         IF ( (.NOT. ln_incpc) .AND. ln_incpc_only) &    
    318318            &   CALL ctl_stop (' if you set ln_incpc_only to .true. then you need to set ln_incpc to .true. as well' ) 
    319  
     319          
     320         WRITE(numout,*) '     time step is    = ',rdt,'you choose to write pcbias at nn_bias_itwrt  = ',nn_bias_itwrt,'and end of iau is rday/rdt=',rday/rdt  
    320321      ENDIF 
    321322      IF( .NOT. ln_bias ) RETURN 
  • branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r6328 r7652  
    9999      ! 
    100100      IF ( ln_bias .AND. ln_bias_pc_app ) THEN 
     101         IF(lwp) THEN  
     102         WRITE(numout,*) " ! store orig density, use pressure corrected density" 
     103         ENDIF 
    101104         z_rhd_st(:,:,:) = rhd(:,:,:)     ! store orig density  
    102105         rhd(:,:,:)      = rhd_pc(:,:,:)  ! use pressure corrected density 
     
    127130      ! 
    128131      IF ( ln_bias .AND. ln_bias_pc_app )  THEN 
     132         IF(lwp) THEN  
     133         WRITE(numout,*) " ! restore original density" 
     134         ENDIF 
    129135         rhd(:,:,:) = z_rhd_st(:,:,:)     ! restore original density 
    130136         gru(:,:)   = z_gru_st(:,:) 
Note: See TracChangeset for help on using the changeset viewer.