Changeset 7044


Ignore:
Timestamp:
2016-10-19T15:40:24+02:00 (5 years ago)
Author:
kuniko
Message:

Initial commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_haney_arctic_mask/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx_adj.F90

    r7031 r7044  
    3232   PUBLIC   sbc_flx_adj_init   ! routine called in sbcmod 
    3333 
    34    !ky 06/09/2016 uncommented below two lines for FA test 
    3534   !ky 11/12/2015 recommented below two lines 
    3635   !!ky 3/12/2015 uncommented below two lines for FA test! 
    37    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   erp   !: evaporation damping   [kg/m2/s] 
    38    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   qrp   !: heat flux damping        [w/m2] 
     36   !REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   erp   !: evaporation damping   [kg/m2/s] 
     37   !REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   qrp   !: heat flux damping        [w/m2] 
    3938 
    4039   !                                   !!* Namelist namsbc_flx_adj * 
     
    103102                        &        * sf_qrp(1)%fnow(ji,jj,1) 
    104103                     !zqrp = sf_qrp(1)%fnow(ji,jj,1) 
    105                      !ky 07/09/2016 copied 1 line below for FA test 
    106104                     !ky 11/12/2015 commented out 1 line below 
    107105                     !!ky 3/12/2015 1 line below for FA test! 
    108106                     !qrp(ji,jj) = sf_qrp(1)%fnow(ji,jj,1) 
    109                      !ky 07/09/2016 copied 1 line above and modified as below for FA test 
    110                      qrp(ji,jj) = zqrp 
    111107                     qns(ji,jj) = qns(ji,jj) + zqrp 
    112108                  END DO 
    113109               END DO 
    114                !ky 06/09/2016 uncommented below 1 line below for FA test! 
    115110               !ky 11/12/2015 recommented out below 1 line below 
    116111               !!ky 3/12/2015 uncommented below 1 line below for FA test! 
    117                CALL iom_put( "qrp", qrp )                             ! heat flux damping 
     112               !CALL iom_put( "qrp", qrp )                             ! heat flux damping 
    118113            ENDIF 
    119114            ! 
     
    132127                     !!ky 3/12/2015 1 line below for FA test! 
    133128                     !erp(ji,jj) = sf_erp(1)%fnow(ji,jj,1) 
    134                      !ky 06/09/2016 copied line above and changed to below two lines for FA test! 
    135                      erp(ji,jj) = ( 1. - 2.*rnfmsk_arcmsk(ji,jj) )  &        ! No damping in vicinity of river mouths 
    136                         &        * sf_erp(1)%fnow(ji,jj,1)  
    137129                     sfx(ji,jj) = sfx(ji,jj) + zerp                 ! salt flux 
    138130                  END DO 
    139131               END DO 
    140                !ky 06/09/2016 uncommented below one line for FA test! 
    141132               !ky 11/12/2015 recommented out below one line 
    142133               !!ky 3/12/2015 uncommented below one line for FA test! 
    143                CALL iom_put( "erp", erp )                             ! freshwater flux damping 
     134               !CALL iom_put( "erp", erp )                             ! freshwater flux damping 
    144135               ! 
    145136            ELSEIF( nn_flxadjfw == 2 ) THEN                               !* Salinity damping term (volume flux (emp) and associated heat flux (qns) 
     
    154145                     !!ky 3/12/2015 1 line below for FA test! 
    155146                     !erp(ji,jj) = sf_erp(1)%fnow(ji,jj,1) 
    156                      !ky 06/09/2016 copied line above and changed to below line for FA test! 
    157                      erp(ji,jj) = zerp 
    158147                     emp(ji,jj) = emp (ji,jj) + zerp 
    159148                     qns(ji,jj) = qns(ji,jj) - zerp * rcp * sst_m(ji,jj) 
    160149                  END DO 
    161150               END DO 
    162                !ky 06/09/2016 uncommented below 1 line for FA test! 
    163151               !ky 11/12/2015 recommented out below 1 line 
    164152               !!ky 3/12/2015 uncommented below 1 line for FA test! 
    165                CALL iom_put( "erp", erp )                             ! freshwater flux damping 
     153               !CALL iom_put( "erp", erp )                             ! freshwater flux damping 
    166154            ENDIF 
    167155            ! 
     
    222210      ! 
    223211      !                            !* Allocate erp and qrp array 
    224       !ky 06/09/2016 uncommented below two lines for FA test! 
    225212      !ky 11/12/2015 recommented out below two lines 
    226213      !!ky 3/12/2015 uncommented below two lines for FA test! 
    227       ALLOCATE( qrp(jpi,jpj), erp(jpi,jpj), STAT=ierror ) 
    228       IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate erp and qrp array' ) 
     214      !ALLOCATE( qrp(jpi,jpj), erp(jpi,jpj), STAT=ierror ) 
     215      !IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate erp and qrp array' ) 
    229216      ! 
    230217      IF( nn_flxadjht == 1 ) THEN      !* set sf_qrp structure & allocate arrays 
     
    257244      ! 
    258245      !ky!!                            !* Initialize qrp and erp if no restoring  
    259       !ky 06/09/2016 below two lines for FA test! 
    260246      !ky 11/12/2015 commented out below two lines 
    261247      !!ky 3/12/2015 below two lines for FA test! 
    262       IF( nn_flxadjht /= 1                   )   qrp(:,:) = 0._wp 
    263       IF( nn_flxadjfw /= 1 .OR. nn_flxadjfw /= 2 )   erp(:,:) = 0._wp 
     248      !IF( nn_flxadjht /= 1                   )   qrp(:,:) = 0._wp 
     249      !IF( nn_flxadjfw /= 1 .OR. nn_flxadjfw /= 2 )   erp(:,:) = 0._wp 
    264250      !!ky!!IF( nn_sstr /= 1                   )   qrp(:,:) = 0._wp 
    265251      !!ky!!IF( nn_sssr /= 1 .OR. nn_sssr /= 2 )   erp(:,:) = 0._wp 
Note: See TracChangeset for help on using the changeset viewer.