Changeset 11666 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p6.F90

Timestamp:

2019-10-09T12:17:05+02:00 (5 years ago)

Author:

laurent

Message:

LB: improved syntax

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p6.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p6.F90

@@ -70 +70 @@
       IF ( l_use_wl ) THEN
          ierr = 0
-         PRINT *, ' *** coare3p6_init: WL => allocating Tau_ac, Qnt_ac, and H_wl :', jpi,jpj
          ALLOCATE ( Tau_ac(jpi,jpj) , Qnt_ac(jpi,jpj), H_wl(jpi,jpj), STAT=ierr )
          !IF( ierr > 0 ) STOP ' COARE3P6_INIT => allocation of Tau_ac and Qnt_ac failed!'
@@ -76 +75 @@
          Qnt_ac(:,:)   = 0._wp
          H_wl(:,:)    = H_wl_max
-         PRINT *, ' *** Tau_ac , Qnt_ac, and H_wl allocated!'
       END IF
       !!
       IF ( l_use_cs ) THEN
          ierr = 0
-         PRINT *, ' *** coare3p6_init: CS => allocating delta_vl :', jpi,jpj
          ALLOCATE ( delta_vl(jpi,jpj), STAT=ierr )
          !IF( ierr > 0 ) STOP ' COARE3P6_INIT => allocation of delta_vl and Qnt_ac failed!'
          delta_vl(:,:) = 0.001_wp      ! First guess of zdelta [m]
-         PRINT *, ' *** delta_vl allocated!'
       END IF
    END SUBROUTINE coare3p6_init