Ignore:
Timestamp:
2017-10-20T16:46:23+02:00 (4 years ago)
Author:
jpalmier
Message:

JPALM — 20-10-17 — ctl_warn text fix

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_Carb_Debug/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r8643 r8649  
    181181      REAL(wp) ::    sumtsn, tsnavg 
    182182      INTEGER  ::    summask 
     183      CHARACTER(25) :: charout, charout2, charout3 
    183184      !! 
    184185      !!------------------------------------------------------------------ 
     
    477478             !! AXY (28/02/14): check input fields 
    478479                  if (ztmp(ji,jj) .lt. -3.0 .or. ztmp(ji,jj) .gt. 40.0 ) then 
     480                     write(charout,*)  tsn(ji,jj,jk,jp_tem) 
     481                     write(charout2,*) mig(ji), mjg(jj), jk, kt  
    479482                     Call ctl_warn(' trc_bio_medusa: T WARNING 3D : ',       & 
    480                                    tsn(ji,jj,jk,jp_tem), 'at I, J, K, kt :', &  
    481                                    mig(ji), mjg(jj), jk, kt ) 
     483                                   TRIM(charout), 'at I, J, K, kt :',        &  
     484                                   TRIM(charout2) ) 
    482485# if defined key_debug_medusa 
    483486                     !! temperature 
     
    543546                          ( tsnavg .GT. 40.0 ) ) THEN     
    544547                        IF (ztmp(ji,jj) .LT. -3.0 ) THEN 
    545                            CALL ctl_warn(                                    & 
    546                            ' trc_bio_medusa: T SWITCHING 3D, ',              & 
    547                            tsn(ji,jj,jk,jp_tem), ' -> -3.0 ' ) 
     548                           write(charout,*)  tsn(ji,jj,jk,jp_tem) 
     549                           Call ctl_warn(' trc_bio_medusa: T SWITCHING 3D : ',     & 
     550                                        TRIM(charout), ' -> -3.0 ') 
    548551                           ztmp(ji,jj) = -3.0 
    549552                        ENDIF 
    550553                        IF (ztmp(ji,jj) .GT. 40.0 ) THEN 
    551                            CALL ctl_warn(                                    & 
    552                            ' trc_bio_medusa: T SWITCHING 3D, ',              & 
    553                            tsn(ji,jj,jk,jp_tem), ' -> 40.0 ' ) 
     554                           write(charout,*)  tsn(ji,jj,jk,jp_tem) 
     555                           Call ctl_warn(' trc_bio_medusa: T SWITCHING 3D : ',     & 
     556                                        TRIM(charout), ' -> 40.0 ') 
    554557                           ztmp(ji,jj) = 40.0 
    555558                        ENDIF 
    556559                     ELSE  
    557                         CALL ctl_warn(                                       & 
    558                         ' trc_bio_medusa: T SWITCHING 3D, ',                 & 
    559                         tsn(ji,jj,jk,jp_tem), ' -> surounding avg : ', tsnavg ) 
     560                        write(charout,*)  tsn(ji,jj,jk,jp_tem) 
     561                        write(charout2,*) tsnavg 
     562                        Call ctl_warn(' trc_bio_medusa: T SWITCHING 3D : ',     & 
     563                                     TRIM(charout), ' -> surounding avg : ',    & 
     564                                     TRIM(charout2) ) 
    560565                        ztmp(ji,jj) = tsnavg 
    561566                     ENDIF 
     
    563568                  !! end T chack 
    564569                  if (zsal(ji,jj) .lt. 1.0 .or. zsal(ji,jj) .gt. 47.0 ) then 
    565                         CALL ctl_warn(                                       & 
    566                         ' trc_bio_medusa: S WARNING 2D, ',                   & 
    567                         tsn(ji,jj,jk,jp_sal),                                & 
    568                         ' at I, J, K, kt : ', mig(ji), mjg(jj), jk, kt) 
     570                     write(charout,*)  tsn(ji,jj,jk,jp_sal) 
     571                     write(charout2,*) mig(ji), mjg(jj), jk, kt  
     572                     Call ctl_warn(' trc_bio_medusa: S WARNING 3D : ',       & 
     573                                   TRIM(charout), 'at I, J, K, kt :',        &  
     574                                   TRIM(charout2) ) 
    569575                     !! Correct out of range values 
    570576                     IF (zsal(ji,jj) .LT. 1.0 ) THEN 
    571                         CALL ctl_warn(                                       & 
    572                         ' trc_bio_medusa: S SWITCHING 3D, ',                 & 
    573                         tsn(ji,jj,jk,jp_sal), ' -> 1.0 ') 
     577                        write(charout,*)  tsn(ji,jj,jk,jp_sal) 
     578                        Call ctl_warn(' trc_bio_medusa: S SWITCHING 3D : ',     & 
     579                                     TRIM(charout), ' -> 1.0 ') 
    574580                        zsal(ji,jj) = 1.0 
    575581                     ENDIF 
    576582                     IF (zsal(ji,jj) .GT. 47.0 ) THEN 
    577                         CALL ctl_warn(                                       & 
    578                         ' trc_bio_medusa: T SWITCHING 3D, ',                 & 
    579                         tsn(ji,jj,jk,jp_sal), ' -> 47.0 ') 
     583                        write(charout,*)  tsn(ji,jj,jk,jp_sal) 
     584                        Call ctl_warn(' trc_bio_medusa: S SWITCHING 3D : ',     & 
     585                                     TRIM(charout), ' -> 47.0 ') 
    580586                        zsal(ji,jj) = 47.0 
    581587                     ENDIF 
Note: See TracChangeset for help on using the changeset viewer.