Changeset 7657 for branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

Timestamp:

2017-02-08T16:04:04+01:00 (8 years ago)

Author:

isabella

Message:

adding more output messages

File:

• branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

@@ -395 +395 @@
          tbias_i(:,:,:) = 0.0_wp
          sbias_i(:,:,:) = 0.0_wp
+         IF(lwp) WRITE(numout,*) 'gru_pc and grv_pc are set to zero '
          gru_pc(:,:)    = 0.0_wp
          grv_pc(:,:)    = 0.0_wp
@@ -548 +549 @@
 
       IF ( ln_incpc) THEN
-       ! not sure if this should be a special case of nn_lat_ramp == 2
+       ! not sure if this should be a special case of nn_lat_ramp == 1
          minlat_bias = 3.0_wp
          maxlat_bias = 8.0_wp  
@@ -814 +815 @@
                    ENDDO
                ENDIF
-
-
-
 
             ENDIF