Changeset 7232 for branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90

Timestamp:

2016-11-15T17:29:11+01:00 (8 years ago)

Author:

lovato

Message:

#1783 - trunk: Update sette and TRA/TRC BDY wrapper

File:

• branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90 (modified) (1 diff)

branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90

@@ -59 +59 @@
          DO jn = 1, jpts
             !
-            SELECT CASE( cn_tra(ib_bdy) )
+            SELECT CASE( TRIM(cn_tra(ib_bdy)) )
             CASE('none'        )   ;   CYCLE
             CASE('frs'         )   ;   CALL bdy_frs ( idx_bdy(ib_bdy),                tsa(:,:,:,jn), zdta(jn)%tra )